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ABSTRACT 

The Moving Head Disk Reliability Program is a maintenance 
program designed to exercise and test the 4046 disk con- 
troller and 1-4 disk drives. The disk drives may be shared 
between two computers in which case this program may be 
running in each computer. 
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M0VXN6 MEAD DISK RELIABILITY PROGRAM 
ABSTRACT 

THE MOVING HEAD 0I8K RELIABILITY PROGRAM 
13 A MAINTENANCE PROGRAM DESIGNED TO 
EXERCISE AND TEST THE 4046 DISK CONTROLLER 
AND 1-4 DISK DRIVES. THE DISK 0RIVE8 MAY BE 
SHARED BETWEEN TWO COMPUTERS IN WHICH CASE 
THIS PROGRAM MAY BE RUNNING IN EACH COMPUTER. 



NOTE 

ONE COMPUTER RUNNING RELIABILITY 
TEST (SA 401), THE OTHER (SA 402) 
ONLYJH 



THE CONTROL CAN BE DEVICE 33 OR 73, 

MACHINE REQUIREMENTS 

NOVA FAMILY CENTRAL PROCESSOR 
4K READ/WRITE MEMORY 
TELETYPE 

4046 DISK CONTROL 

4047 OR 4046 CONTROL ADAPTER 
1-4 MOVING HEAD DISK DRIVES 

OPERATING PROCEDURES 

A, LOAD PROGRAM USING BINARY LOADER 

B. RESET AND START AT ONE OP THE 
ADDRESSES SHOWN BELOW. 

STARTING ADDRESS 

2 RUN ALL 

4 SET DISK CONTROL ADORESS TO 33 

9 SET DISK CONTROL ADORESS TO 73 

400 RELIABILITY TEST, ALL CYLINDERS 

401 RELIABILITY TEST, EVEN CYLINDERS 

402 RELIABILITY TEST, ODO CYLINDERS 

403 DISK ADDRESS TEST 

404 NOT USED 

409 COMMAND STRING INTERPRETER 

406 ONES TEST 

407 ZEROS TEST 

410 110110110 TEST 

411 FLOATING ONE TEST 

412 FLOATING ZERO TEST 

413 RUN ALL 

414 RECALIBRATE UNIT 
419 RECALIBRATE UNIT 1 

416 RECALIBRATE UNIT 2 

417 RECALIBRATE UNIT 3 
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C. ERRORS • ERROR STATUS IS PRINTED 
WHENEVER ENCOUNTERED. WHEN DATA ERRORS 
ARE FOUND ONLY THREE ARE PRINTED PER 
ENCOUNTER. C8EE PARAGRAPH 5) 

SWITCH SETTINGS 

3W0«1 DO NOT HALT FOLLOWING ERROR 

SWlil INHIBIT ERROR PRINTOUTS 

SW2M REPEAT CURRENT TEST (SCOPE LOOP) 

SW3M INHIBIT CHECK WORD AND DATA ERROR MESSAGES 

3*4.1 BREAK TO ALLOW DISK INTERCHANGE 

SW5«1 FOR READ ONLY MOOE 

D. STATISTICS • TYPE ANY KEY DURING 
RANDOM TESTING TO GET A REPORT OF THE 
NUMBER OF WORDS WRITTEN AND READ, PLUS 
THE NUMBER OF ERRORS. 

4. PROGRAM DESCRIPTION 

A, RELIABILITY TEST (SA 400) 

A RANDOM NUMBER GENERATOR IS USED TO SELECT A 
DISK DRIVE, CYLINDER, HEAD, BEGINNING SECTOR, 
ANO NUMBER OF CONSECUTIVE SECTORS. RANDOM 
OATA IS THEN GENERATED, WRITTEN, AND READ. 
THE SEQUENCE IS REPEATED INDEFINITELY. 

B, RELIABILITY TEST CSA 401) 
SAME AS A. EXCEPT THAT ONLY EVEN 
NUMBERED CYLINDERS ARE USED, THIS 
ALLOWS A TWO COMPUTER SYSTEM TO RUN 
SIMULTANEOUS RELIABILITY TESTS, 

C, RELIABILITY TEST (SA 402) 
SAME AS B, ONLY FOR ODD NUMBERED 
CYLINDERS. 

D, DISK ADDRESS TEST (SA 403) 
RANDOM DATA IS FIRST WRITTEN THEN READ 
FROM ALL SECTORS ON EACH READY DISK. THIS 
INSURES THAT ALL DISK PACK SURFACES ARE 
USEABLE AND THAT THE DISK PACK IS FORMATTED 
PROPERLY. 
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P. COMMAND STRING INTERPRETER <8A 405) 
A0 A TROUBLE SHOOTING AID THE SERVICE 
EN6XNEIR MAY TYPE IN Mil OWN TE8T LOOP. 
AFTER STARTING AT 408, TMREE ARGUMENTS 
MU8T BE ENTERED IN RESPONSE TO THREE 
RRO0RAM QUESTIONS! "UNIT", "DATA", AND 
"COMMAND STRING", 



X. 



XX. 



XXI. 



UNITI TYRE UNIT * OR CARRIAGE TO 
USE THE PREVIOUS ENTRY 

DATAI RANtRANDOM 

alorall ONES 
ALZiALL ZEROS 
PATM10110 PATTERN 
FLOiPlOATlNC ONE PATTERN 
FLZiPLOATlNG ZERO PATTERN 

ALTERNATIVELY ENTER A STRING OF 
OCTAL 16 BIT WORDS TO BE 
USED AS DATA. THE WORDS 
ENTERED ARE USED REPEATEDLY 
TO MAKE UP A SECTOR BLOCK. 
TYPE CARRIAGE TO USE THE 
PREVIOUS ENTRY. 

COMMAND STRINGI 



OPTIONS 1. 
8. 
3. 
4. 
5. 
6. 
7. 



READ HEAD, SECTOR, 03ECT0RS 

WRITE SAME 

SEEK CYLINDER 

RECALIBRATE 

LOOP (GO TO BEGINNING) 

DELAY (N) 18. SMS INCREMENTS 

TYPE CARRIAGE TO USE THE 

PREVIOUS COMMAND STRING. 



NOTE THAT EITHER SPACES OR A COMMA 

MAY BE USED AS AN ARGUMENT DELIMITER, 

EACH RESPONSE IS TERMINATED BY 

TYPING CARRIAGE RETURN, IF MORE 

ROOM IS NEEDED ON A LINE, TYPE 

LINE FEED TO SPACE TO THE NEXT LINE, 

THE WORD "SAME" USED WITH READ, OR WRITE, 

WILL CAUSE THE PREVIOUS DISK 

ADDRESS PARAMETERS TO BE USED, 
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TUg V01.I.QMING EMMPLE WOULD CAUSE UNIT 

1 TO REPEATEDLY IEEK CYLINDER 

90, WRITE 8ECT0R6 2 AND 3 WITH HEAD 9, 

THEN READ IT BACK AND CHECK. DATA It SPECIFIED 

A8 ALTERNATE W0RD8 OF ZER08 THEN ONES, 

UNITI 1 

DATAI 0,177777 

COMMAND 8TRINGI SEEK 80 WRITE 9,2,2 REAO SAME LOOP 



C. ONES TEST (DATA ■ ALL I'S) 
ZEROS TEST (DATA ■ ALL 0'8) 

110110 TEST (DATA « WORDS OF 1101101101101101) 
FLOATING ONE TEST (EACH SUCCESSIVE WORD 

CONTAINS ONE 1 BIT WHICH IS MOVED 

RIGHT ONE BIT EACH WORD) 
FLOATING ZERO TEST (COMPLEMENT OF THE 

FLOATING 1 TEST) 

EACH OF THE ABOVE USE THE BASIC DISK AODRESS 
TEST, SUBSTITUTING THE APPROPRIATE DATA, 

ANY OF THESE PATTERNS INCLUDING THE RANDOM 
DATA USED FOR THE DISK ADDRESS TEST MAY 
BE RUN IN THE "READ ONLY" MODE, THIS IS USEFUL 
FOR CHECKING THE INTERCHANGEABILITY OF DISK 
PACKS BETWEEN VARIOUS DISK DRIVES, 

TO GENERATE A DATA PATTERN START AT THE 
APPROPRIATE LOCATION AND SET 8W4 TO A 1, 
WHEN THE ENTIRE PACK HAS BEEN WRITTEN AND 
READ THE TELETYPE PRINTS "INTERCHANGE DISK" 
AND THE PROGRAM HALTS, THIS PACK MAY NOW 
BE READ FROM OTHER DISK DRIVES IN THE READ 
ONLY MODE (8W8*1), 
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15. ERROR REPORTING AND RECOVERY 

ALU RHA8E8 OF THE SOFTWARE WORK THROUGH 

4 MAIN SUBROUTINES DESCRIBED BELOW, EACH 

SUBROUTINE HAS A NORMAL RETURN C*3) AND 

AN ERROR RETURN (♦!), EACH SUBROUTINE WAITS FOR DISK 

COMPLETION WITH INTERRUPT ENABLED, A FAILURE 

TO DETECT INTERRUPT WITHIN 500M8 C3 SEC FOR 

RECALIBRATE} RESULTS IN A "TIMEOUT" ERROR. 

RECALIBRATE - ANV UNUSUAL STATUS IS REPORTED 
IMMEDIATELY AND AN ERROR RETURN EXECUTED, 

SEEK * SEEK ERROR STATUS INCREMENTS SEEK 
ERROR COUNTER, ANY ERROR STATUS RESULTS 
IN STATUS PRINTOUT, 

WRITE - FOLLOWING "DONE* 1 ON A WRITE, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEDURE IS OUTLINED FOR EACH CASE. 
IF THE ERROR IS NOT PRESENT THE NEXT CHECK IS MADE, 

1, READ/WRITE DONE STATUS m IF NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN, 

2, MISC STATUS BITS - (ANY SEEK DONE, ANY SEEKING 
BIT, SEEK ERROR, END CYLINDER, OR DATA LATE). 
IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 

3, ADDRESS ERROR 

3.1 FIRST TIME - INCREMENT ADDRESS ERROR COUNT 
AND REPEAT THE WRITE, 

3.2 SECOND SUCCESSIVE FAILURE - INCREMENT 
PERMANENT ADDRESS ERROR COUNT AND DO A 
ERROR RETURN. 

4, ENDING MEMORY ADDRESS - INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 5, 

5, ENDING DISK ADDRESS - INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO TO 6, 

6, NO FURTHER CHECKS 

6.1 FATAL SWITCH ON • DO A ERROR RETURN, 

6.2 OTHERWISE - DO A NORMAL RETURN, 
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READ - FOLLOWING "DONE" ON A READ, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEDURE IS OUTLINED FOR EACH CASE, 
IF THE ERROR IS NOT PRESENT THE NEXT CHECK IS MADE. 

1, READ/WRITE DONE STATUS - IF NONE. INCREMENT THE 
MI8C ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN, 

2, MISC STATUS BITS - (ANY SEEK DONE, ANY SEEKING 
BIT, SEEK ERROR, END CYLINDER, OR DATA LATE). 

IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 

3, ADDRESS ERROR 

3.1 FIRST TIME • INCREMENT ADDRESS ERROR COUNT 
AND REPEAT THE READ, 

3.2 SECOND SUCCESSIVE FAILURE - INCREMENT 
PERMANENT ADDRESS ERROR COUNT AND DO A 
ERROR RETURN, 

4, CHECK WORD ERROR 

4.1 FIRST TIME • INCREMENT THE CHECK WORD 
ERROR COUNT AND SET THE RETRY FLAG, PRINT 
"CHECK WORD ERROR" AND GO TO 5, 

4.2 SECOND SUCCESSIVE ERROR • INCREMENT THE 
PERMANENT CHECK WORD ERROR COUNTER AND SET 
THE FATAL FLAG, PRINT "CHECK WORD ERROR" 
AND GO TO 5, 

5, DATA ERROR 

5.1 FIRST TIME - SET THE RETRY FLAG AND PRINT 
ERROR REPORT 

5.1.1 CHECK WORD ERROR - DECREMENT THE 
CHECK WORD ERROR COUNTER AND INCREMENT 
THE CHECK WORD I DATA ERROR COUNTER. 
GO TO 6, 

5.1.2 NO CHECK WORD ERROR «■ INCREMENT 
THE DATA ERROR COUNTER AND GO TO 6. 

5.2 SECOND SUCCESSIVE ERROR - SET THE FATAL 
FLAG AND PRINT THE ERROR REPORT, 

5.2.1 CHECK WORD ERROR • DECREMENT 
THE PERMANENT CHECK WORD ERROR COUNTER 
AND INCREMENT THE PERMANENT CHECK WORD 
ft DATA ERROR COUNTER, GO TO 6, 

5.2.2 NO CHECK WORD ERROR • INCREMENT 
THE PERMANENT DATA ERROR COUNTER. 

GO TO 6. 
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5. ENDING MEMORY ADDRESS • INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG 
AND GO TO 7. 

7, ENDING DISK ADDRESS • INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG 
AND GO TO 8, 

6. NO FURTHER CHECKS 

5.1 RETRY SWITCH ON - PRINT "TRY AGAIN" 
AND REPEAT THE TEST. 

8.2 FATAL SWITCH ON . DO A ERROR RETURN, 

6.3 NO SWITCHES ON • DO A NORMAL RETURN, 
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(• I82'8 FOR 12.5M8 C TMI8 COMPUTER 5 
(12.5MS TIMER 
I8TATU8 AT INTERRUPT 
(SAVE AC0,1,2 



(CURRENT RANDOM NUMBER 
(RANDOM BASE NUMBER 



(PROGRAM END 

(BYTE POINTER 

I8TARTXN6 SECTOR (POS) 

(SECTOR COUNT 

IHEAD 

(BEGINNING ADDRESS (VARIABLE) 

("SAME 

(MOLDS TERMINATOR FLAG 

(UNIT BYTE POINTER 

(CMD STRING BYTE POINTER 

(VARIABLE DATA, SRT ADOR-1 

( " " TABLE END 

( " "END MARKER 

(VAR POINTER 

(DATA BUFFER SRT ADDR (CONSTANT) 

(TOP OF USABLE CORE 

(MAX SECTOR COUNT 

(CYLINDERS, C0JEVEN, (15)000 
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(» SECTORS MASK 7400 OR 3400 

(« SECTOR TRANSFERRED ON CHK WO ERR 

(REPEAT TEST ADDRESS 
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002647 


IROATl 


RDATA 


29 


00344 


002325 


IWOATI 


WDATA 


30 


00345 


002105 


IGCSI 


GCS 


31 


00346 


002611 


XRl 


.READ 


32 


00347 


002310 


IWI 


.WRITE 


33 


00350 


002253 


ISI 


.SEEK 


34 


00351 


002223 


XRCI 


RECL 


35 


00352 


001265 


XPSi 


PS 


36 


00333 


003170 


IHEOI 


HED 


37 


00354 


002774 


XCSWI 


.CSW 


38 


00355 


001747 


I8CNTI 


SCNT 


39 


00356 


002003 


ICSXI 


CMDST 


40 


00357 


002001 


XQUSTl 


QUEST 


41 


00360 


000725 


IWTI 


WAIT 


42 


00361 


003377 


IRANI 


RAN 


43 


00362 


001274 


I.GSDl 


.GSO 


44 


00363 


000622 


X3UI 


.SET 


45 


00364 


000560 


IRCALI 


RCALL 



a 0013 


.MAIN 


0)1 




ea 


000020 


03 


000021 


04 


000033 


05 


006314 


06 


006315 


07 


006361 


08 


006316 


09 


006317 


10 


006320 


11 


006321 


12 


006322 


13 


006323 


14 


006324 


i m 


000330 


10 


006332 


17 


006331 


IS 


006327 


19 


006326 


90 


006325 


21 


006334 


22 


006335 


23 


006336 


24 


006337 


28 


006340 


26 


002362 


27 


006346 


28 


006347 


29 


006350 


30 


006351 


31 


006364 


32 


006363 


33 


006360 


34 


006041 


35 




36 


006363 


37 




36 





XDX0I20 
XDXH21 
.DSKM33 
DOALLiJSft #IALL 
DIY12»JSR PIDLY 
RANDiJSR PIRAN 
SAVACiJSR PISAC 
SETACiJSR PISTAC 
TYP0EC"J8R ilROEC 
TYPACltJSR #ITAC1 
TYPZUJSR •ITZ1 
MESSAGEiJSR ilMESS 
PCRLF'JSR PICRLF 
XNPUTtJSR PIINP 
CHECKuJSR 6XCHK 
GENpJSR PIGEN 
GETPAR»J8R #IHS3 
GETATMiJSR MGATM 
SEARCHiJSR #ISRH 
CLRRBUSR PICLRB 
8ETMJ8R PI8ET 
8MEM«J8R #I8M 
SETBUSR PISTB 
INITE-JSR »XNZL 
PSTATiJMR #IPS 
READUSR PIR 
WRITEiJSR fXN 
SEEKUSR #13 
RECAUaJSR (XRC 
CKSN«J8R PXC8W 
HEADERtJSR PIHED 
XNTHTtJSR PIWT 
TYPASCtJSR #41 



.EOT 



IDO FOLLOWING ROUTINE FOR ALL RDY UNITS 

IDELAY 12, SMS 

{GENERATE RANDOM « IN AC0 

ISAVE AC0,1,2 

IRE8T0RE AC0,1|2 

{TYPE (AC!) IN DECIMAL 

{TYPE CAC1) IN OCTAL 

ITYPE CAC1) IN OCTAL* SUFP LEAD 0»3 

ITYFE FOLLOWING MESSAGE IN ASCII 

ITYPE CR-LF 

{GET A LINE OF INPUT 

ICHECK ALL OF DATA BUFFER 

/GENERATE DATA BUFFER 

{GET HEAD-SECT-* SECT FROM INPUT LINE 

{GET NAME OR ft FROM INPUT LINE 

{SEARCH FOLLOWING TABLE FOR MATCH ON ACl 

ICLEAR REAO BUFFER 

fSET DISK PARAMETERS 

{SIZE MEMORY 

{SET TIME BASE 

UNITIALIZE ERROR COUNTERS ETC. 

{PRINT STATUS 

{DISK REAO I CHECK DATA 

{GENERATE DATA AND WRITE DISK 

{SEEK NEW CYLINDER 

{RECALIBRATE 

{CHECK CONSOLE SWITCHES 

{PRINT ERROR MESSAGE HEADER 

{INTERRUPT WAIT ROUTINE 

{TYPE (AC0)R IN ASCII 

{SET READY UNITS 



0014 .MAIN 



01 
02 
03 
04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 



000400 



00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00410 

00411 

00412 

00413 

00414 

00415 

00416 

00417 



004420 BEGIN! 

004417 

004416 

004415 

063077 

000464 

004412 

004411 

004410 

004407 

004406 

004405 ,RALI 

002364 

002364 

002364 

002364 

( 
( 

( 

00420 020301 8TRTI 

00421 116400 

00422 054471 

00423 006336 RSTRTl 

00424 006337 

00425 006340 

00426 006363 

00427 126400 

00430 101225 

00431 000404 

00432 101224 

00433 125140 

00434 125140 

00435 125300 RS3I 

00436 044302 

00437 062677 

00440 020170 

00441 101005 

00442 006362 

00443 006324 

00444 006323 

00445 004670 

00446 006314 

00447 000457 

00450 063511 

00451 000777 

00452 060211 

00453 020423 

00454 030437 

00455 113000 

00456 003000 



*« STARTING ADDRESSES 


*** 


.IOC 400 






J8R 8TRT 


(RELIABILITY TEST, ALL 


CVL. 


JSR STRT 


( « EVEN 


n 


J8R STRT 


I " ODD 


ii 


JSR STRT 


IDISK ADDRESS TEST 




HALT 


fNOT USED 




JMP 8TRC 


(COMMAND STRING INTERPF 


IETER 


JSR STRT 


(ONES TEST 




JSR STRT 


(ZEROS TEST 




JSR STRT 


1110110 TEST 




JSR STRT 


FLOATING ONES TEST 




JSR STRT 


(FLOATING ZEROS TEST 




JSR STRT 


IRUN ALL 




JMP ilRCAL 


{RECALIBRATE UNIT 




JMP PIRCAL 


IRECALIBRATE UNIT 1 




JMP PIRCAL 


(RECALIBRATE UNIT 2 




JMP PIRCAL 


IRECALIBRATE UNIT 3 




#** INITIALIZATION 


** 



LDA 0, FIRST 

SUB 0,3 

STA 3, INDEX 

SMEM 

SETB 

INITE 

SETU 

SUB 1,1 

MOVZR 0,0, SNR 

JMP RS3 

MOVZR 0,0, SZR 

MOVOL 1,1 

MOVOL 1,1 

M0V8 1,1 

STA 1,UMSK 

IORST 

LDA 0,LHD 

MOV 0,0, SNR 

JSR PI.GSD 

PCRLF 

MESSAGE 

MSG70 

DOALL 

TUN 

SKP8Z TTO 

JMP ,-1 

NIOC TTO 

LDA 0,STR,2 

LDA 2, INDEX 

ADD 0,2 

JMP P0,2 



(INITIALIZATION, ALL 



FSIZE MEMORY 

ISET TIME BASE 

UNITIALIZE BUFFERS, COUNTERS, ETC. 

(SET READY UNITS 

»AC0«READY UNIT PATTERN 

(UNIT ONLY 

(UNIT 2 OR 3 MASM3 
(UNIT 1 MASK"! 

(UNIT MASK 

IIS DISK SIZE 
(SPECIFIED ?? 
INO, GET IT 



("TESTING UNIT ■ 

(TYPE UNIT NUMBERS 
(WAIT FOR TTO 
(TO FINISH 
(CLEAR DONE 



(GO TO IT U 



A 1118 

■ 4 



08 

03 
04 
09 

06 
07 
08 
00 
10 
11 
12 
13 
14 
15 
16 
17 
19 
19 
20 
21 
22 
23 
24 
29 
26 
27 
28 
29 
30 
31 
32 
33 
34 
39 
36 
37 
38 
39 
40 



00487 
00460 
00461 
00462 

00463 
00464 
00468 
00466 
00467 
00470 



.MAIN 

064410 
020187 
024207 
123000 

006041 
020404 

006041 
002401 
000000 
000084 



00471 
00472 
00473 

00474 
00479 



00476 
00477 

00900 
00901 
00902 
00903 
00904 
00909 
00906 
00907 
00910 
00911 
00912 
00913 



006336 

006337 
006340 
006362 

002407 



000476 
001360 
001346 
001349 
001997 
000000 
002003 
001963 
001966 
001667 
001871 
001673 
001830 
000000 



TUNI 8TA 3,TUNRET 
IDA 0,UNXT 
IDA 1,C60 
ADO 1,0 
TYPA8C 
LDA 0,COMA 
TYPASC 
JMP 8TUNRET 

TUNRITI 

COMA! », 



ITYPE UNIT NUMBER 
IPOLLONEO BY A «," 



STRCl 



I 
I 

1 

8TR.2I 



.CMDl 



fCOMMANO STRING INTERPRETER DOES NOT REQUIRE 
fNORMAL INITIALIZATION, 



9MEM 
8ETB 

INITE 

J9R 0I.G3D 

JMP 0.CMO 



I8IZE MEMORY 
I8ET TIME BASE 
UNITIALIZE BUFFERS ETC. 
ISET LAST MEAD/SECTOR 
IDISPATCH TO ROUTINE 



• ** 



OISPATCH TABLE TO PROGRAMS 



** 



INDEXI 



RELALL 

RELEV 

RELOO 

DATR 



CM08T 

DATt 

OAT0 

OATP 

OATP1 

OATF0 

RUNALL 




CYL 

M 
H 



IRELIABILITY TEST, ALL 

I M EVEN 

I M ODD 

IDISK ADDRESS TEST 

fNOT USED 

fCOMMAND STRING INTERPRETER 

I0NE8 TEST 

IZEROS TEST 

M10110 PATTERN 

AFLOAT ONE 

IFLOAT ZERO 

rRUN ALL PARTS 



a 0016 
01 



02 

03 

04 

09 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

29 

26 

27 

28 

29 

30 

31 

32 

33 

34 

39 

36 

37 

38 

39 

40 

41 

42 

43 

44 

49 



06914 
00519 



00916 
00917 



.MAIN 

080000 
160037 



002773 

000420 



00920 

00921 

00922 

00923 

00924 

00929 

00926 

00927 

00930 

00931 

00932 

00933 

00934 

00935 

00936 

00937 

00940 

00941 

00942 

00943 

00944 

00949 

00946 

00947 



00990 
00991 
00992 
00993 
00994 
00999 
00996 
00997 



102401 

020209 

040772 

030774 

024771 

021000 

107400 

034226 

136404 

000406 

024233 

123400 

024760 

123000 

041000 

191400 

034796 

196404 

000762 

020203 

024790 

107000 

044277 

063077 



060477 

024176 
123400 
040197 
006391 

000772 
000771 
000770 



CSP2! 
CXOMSKI 



.L9T1 
.L8T1I 



PXADDl 



FX.2I 



FX.31 



FX.4I 



RCALLI 



160037 



HXADO 
STRT 



I** 



INITIALIZATION 

SUBROUTINES 



** 

** 



ICHANGE I/O ADDRE8S TO 33 OR 73 



SUB 0,0, SKP 
IDA 0,C40 
9TA 0,CSP2 
LDA 2,.LST1 
UOA 1,CX0M8K 
LDA 0,0,2 
AND 0,1 
LDA 3,CMRD 
SUB 1,3,8ZR 
JMP FX.3 
LDA l,M4i 
AND 1,0 
LDA 1,C8P2 
ADD 1,0 
STA 0,0,2 
INC 2,2 
LDA 3,.L8T 
SUB 2,3,SZR 
JMP FX.2 
LDA 0,C33 
LDA 1,C8P2 
ADD 0,1 
STA 1,CDSK 
HALT 



IMAKE IT 33 
IMAKE IT 73 

IPOXNTER IN MEMORY 
IINST MASK 
fGET A WORD 

IIS IT AN I/O 33 OR 73 ? 

INO 

IMASK 

IBET RID OF BIT 10 

IMAKE ADOR 33 OR 73 
MDDR CHANCED 



IMORE 

fSET CCD3K) TO 

IEQUAL THE DEVICE ADDR 



IALL DONE 



IRECALIBRATE THE UNIT IN SW 14-19 

READS 

LDA 1,C3 

AND 1,0 

STA 0,UNIT 

RECAL IRECALIBRATE J 

JMP FX,4 

JMP FX.4 

JMP FX.4 



nut l 7 



M A T II 



512 

03 

(7)4 

05 

06 

37 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 
37 

38 
39 

4 a 
41 
42 
43 



00613 
00614 
00615 
00616 
450617 
0^620 
00621 



0- 



■ ""*>,-_- 









« * J 

,' ' ' 



f^OVidftM f '-.^ 



0056? 
00561 
00562 
00563 
00S64 
00565 
00566 
00587 
00570 
00571 
00572 
00573 
00574 
00575 
00576 

00577 

£06001 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 



062677 STB: 
054430 
020311 
040001 

126400 
044234 

06i m* \^ 

0636K. \i 
000777 



061134 
060177 
010234 
000777 
063077 

0602t* 

020234 

101220 

101220 

lf»1220 

040234 

062677 

020312 

040001 

002401 

000000 



i<J 



SET.!* 



aimi * 

024167 
102400 
041000 
151400 
132414 
000775 

001400 



STBRETl 



¥ li T I • 

iniUi * 



:>e 



f 3 (MC V*o) 



r>\n- 



J5ET INTERRUPT RETURN ( P^. J^'/j 
c;S?£. ^ ^Mfe W /^ ^fc £^I 



IFIND COMPUTER TIME 9a5E 

IORST 

STA 3, STBRET . . 
LDA 0,ISET. (S'nj 
STA 0,1 

-^{H~0, C 37-7 S 
SUB 1,1 
STA t,T2ME 
00 AS 0,t*b- £TC j S^/C T-/C CLOG/' 

SKPON T*G- fef"C. 
JMP ,-i 

OOAS 0,Ti43- tLr^ ' "r-*- 
INTEN 
ISZ TIME 
JMP .-1 

HALT 






NIOC^TtK-K! C 
LDA 0,TIME 
MQVZR 0,0 
MOVZR 0,0 

MOVZR 0,0 

STA 0,TIME 

IORST 

LDA 0,IRUP 

STA 0,1 

JMP PSTBRET 





J WAITED TOO LON& 
?TIME»104!HS COUNT 

ITlMEsl2,5MS COUNT 



KLEAR ERROR COUNTERS ETC, 

i r\ a ft w f u i c 

i.um e , *i» tut 
LDA 1,SSW+1 
SUB 0,0 
STA 0,0,2 
INC 2,2 
SUB* 1,2,SZR 
JMP .-3 
JMP 0,3 



a 0017 
et 

02 

03 

04 

05 

06 

07 

00 

09 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 



.MAIN 



IFINO COMPUTER TINE 8ASE 



00560 
00661 
00862 
00563 
00664 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 

00577 

00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
006U 



062677 ST8I 

064430 

020311 

040001 

020216 

126400 

044234 

0611U 

0636U 

000777 

061111 

060177 

010234 

000777 

063077 

060211 SET, 11 

020234 

101220 

101220 

101220 

040234 

062677 

020312 

040001 

002401 

000000 ST6RETI 



<9f 

38 

39 
40 
41 
42 
43 



00612 030313 INIL.I 

00613 024167 

flfltl A a mm M mm 

00615 041000 

00616 151400 

00617 132414 

00620 000775 

00621 001400 



I0R8T 

8TA 3,8TBRET 
LOA 0,ISET. 
STA 0,1 
IDA 0,C377 

sue i,i 

STA I, TIME 
OOAS 0,TTO 
SKPON TTO 
JMP .-1 
D0A8 0,TTO 
INTEN 
X8Z TIME 
JMP ..1 
HALT 

NIOC TTO 
LOA 0,TIME 
HOVZR 0,0 
MOVZR 0,0 
MOVZR 0,0 
STA 0.TIME 
X0R8T 

LOA 0,ZRUR 
STA 0,1 
JMP PSTBRET 




ICLEAR ERROR COUNTERS ETC. 

LOA 2,ICYLF 
LOA i,SSW*l 
Sue 6,0 
STA 0,0,2 
INC 2,2 
8UB# 1,2,8ZR 
JMP .-3 
JHP 0,3 



>8ET INTERRUPT RETURN 



MAITEO TOO L0N6 
ITIME«100MS COUNT 

»TINEtl2,5M8 COUNT 



A 0018 

01 

02 

03 

04 

09 

06 

07 

08 

09 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

29 

2« 

27 

28 

29 

30 

31 

32 

33 

34 

39 

36 

37 

38 

39 

40 

41 

42 

43 

44 

49 
46 



.MAIN 



00622 
00623 
00624 
00629 
00626 

00627 
00630 
00631 
00632 

00633 
00634 
00639 
00636 

00637 
00640 
00641 
00642 
00643 
00644 
00649 
00646 
00647 
00690 
00691 
00692 

00693 
00694 
00699 
00696 



094448 ,8ETl 

102400 

063033 

020173 

061333 

024172 

060433 
123409 
000776 

020230 
006318 
101404 

000776 

162400 

090160 

021026 .8ET1I 

063033 

060433 

024211 

123408 

000409 

021022 

024160 

123000 

040160 

191400 ,9ET2! 

024024 

132414 

000763 



00697 
00660 
00661 
00662 
00663 
00664 
00669 
00666 
00667 



020160 
101004 
002406 
006324 
006323 
004230 
063077 
000738 

000000 



I8ET READY UNITS 

8TA 3i,8RET 
SUB 0,0 

DOC 0,.DSKP 
LDA 0,C1000 
DOAP 0,,D8KP 

LDA 1,C2000 

DZA 0,.D8KP 

AND 1,0, SNR 

JMP ,-2 

LDA 0,M16. 

0LY12 

INC 0,0, 8ZR 

JMP ,»2 



SUB 2 
STA 2 

LDA 
DOC 
DIA 
LDA 1 
AND 1 
JMP . 
LDA 
LDA 1 
ADD 1 
STA 



,2 

,RDYUNT 

,UNTINS,2 

,.D3KP 

,.DSKP 

,C100 

,0,8NR 

SET2 

,DRV8,2 

,RDYUNT 

10 
,RDYUNT 



.SRETI 



ZNC 2,2 

LDA t,C4 
SUB* 1,2,SZR 
JMP .SET1 

LDA 0,ROYUNT 

MOV 0,0, SZR 

JMP P.SRET 

PCRLF 

MESSAGE 

M8G16 

HALT 

JMP .SET+i 





|DO A SEEK ON UNIT 
ITO SELECT THE ADAPTER 



INAXT FOR SEEKING 
IPLOP TO TURN ON 



IWAIT 200M8 POR 
ITHE SEEK TO END 



ISET ALL UNITS "NOT READY" 
ISELECT UNITS 0-3 
IAND CHECK EACH 
JFOR "DUR" 



JNOT READY 

ItRDYUNT) DEFINES WHICH 

IUNITS ARE READY 

IBIT 18»UNIT 0, BIT 14«UNIT 1 

IBIT 13-UNIT 2, BIT 12-UNIT 3 



IEXIT AFTER ALL UNITS 
I TESTED 



I "NO READY UNITS" 



* 0019 

01 



.MAIN 



08 

03 

04 
05 
08 

07 

00 

09 

10 

11 

19 

13 

14 

IS 

10 

17 

IB 

19 

80 

81 

88 

83 

84 

as 

80 

87 
80 
89 

30 

31 

38 

33 

34 

33 

30 

37 

30 

39 

40 

41 

48 

43 

44 

45 

40 

47 

4S 

49 

50 

51 

58 

53 

54 

55 

50 

57 



••♦ INTERRUPT SERVICING JJ 



00070 

00071 
00078 

00073 
00074 
00075 

00070 
00077 

00700 
90701 
00708 
00703 
00704 
00705 
00700 
00707 
00719 
00711 
00718 
00713 
00714 
00713 
00710 
00717 



054848 

000310 
005477 
044484 

030877 

138415 

000488 

030085 

138415 

000443 

034840 

137000 

054401 

000800 

000384 

000383 

004178 

08440S 

000388 

00S317 

034848 

000177 

008000 

000000 



XNTERl STA 3,SAV3 
8AVAC 
XNTA 1 
STA 1,30 
IDA 8,CD8K 
SUB* 1,8,8NR 
JMP XNT.l 
LDA 8 f Cl0 
SUB* 1,8,SNR 
JMP IT7X 
LDA 3,CNI0C 
ADD 1,3 
STA 3,,+l 
NIOC 
PCRLF 
MESSAGE 
MS89 

IDA 1,S0 
TYPZ1 
SETAC 

LDA 3,SAV3 
INTEN 
JMP #0 




00780 
00781 
00788 
00783 
00784 



000033 
040830 
030157 
010480 
002417 



301 



INT. It 



00785 080831 
00780 180400 
00787 054414 

00730 000177 

00731 008315 
00738 101404 
00733 000770 



HAITI 



00734 000877 
00738 008O77 
00730 000363 
00737 006384 

00740 006383 

00741 004885 
00748 008401 
00743 000000 WTRETI 



fWHO DID XWt 



IDXSK RACK INTERRUPT 



fTTI INTERRUPT 
fSOMEQNE ELSE 



IDEV AODR ADDED DYNAMICALLY 



fINTERRUPT FROM DEVICE 



IRETURN 



JDISK PACK INTERRUPT 



DIAC 0,.D8KP 
STA 0,I8TAT 
LDA 2, UNIT 
I8Z WTRET 
JMP PWTRET 



fREAD STATUS 

ISAVE FOR ALL TO USE 



fWAIT FOR INTERRUPT 

IRUN TIMER TO PREVENT MANGUP 



LDA 0,M160. 

SUB 1,1 

STA 3, WTRET 

INTEN 

DLY18 

INC 0,0, 8ZR 

JMP ,-8 

INTDS 

IOR8T 

HEADER 

PCRLF 

MESSAGE 

M8G69 

JMP PWTRET 





IWAIT 8 SEC. 

JUSE * IN ACS FOR TIME 
IENABLE INTERRUPTS 
ITIME FOR 12, SMS 



ITIMEOUT, DISABLE INTER. 

ICLEAR AOAPTER FOR 2ND COMP, 

IPRINT 

(ERROR MESSAGE 

^INTERRUPT TIMEOUT" 
IERROR RETURN (+1) 



a 0020 .MAIN 
01 



ITELETYPE INTERRUPT 



03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

29 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

SB 



00744 

00745 

00746 

00747 

00750 

00751 

00752 

00753 

00754 

00755 

00756 

00757 

00760 

00761 

00762 

00763 

00764 

00765 

00766 

00767 

00770 

00771 

00772 

00773 

00774 

00775 

00776 

00777 

01000 

01001 

01002 

01003 

01004 

01005 

01006 

01007 

01010 

01011 

01012 

01013 

01014 

01015 



060210 

020156 

101004 

002356 

020270 

101005 

000404 

020164 

101225 

000433 

006324 

006324 

020157 

040433 

020310 

040432 

020544 

040021 

022021 

101005 

000414 

040405 

022021 

040405 

006324 

006323 

000000 

006314 

000000 

063610 
000764 
060210 
020410 
040157 
020407 
040310 
006317 
034242 
060177 

002000 
000000 
000000 



ITTII 



01016 

01017 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 



102400 
030265 
024252 
125300 
147000 
041000 
151400 
132414 
000775 
001400 



ITT. II 



ITT. 21 
ITT, 31 

ITT. 41 

ITT. 51 



SAVUI 
3AVAI 



CLRBI 



NIOC TTI 

LDA 0,C3IF 

MOV 0,0, SZR 

JMP »IC$I 

LDA 0,EVODN 

MOV 0,0, 8NR 

JMP ,*4 

LDA 0,MODE 

MOVZR 0,0, SNR 

JMP ITT. 5 

PCRLF 

PCRLF 

LDA 0,UNIT 

STA 0,SAVU 

LDA 0,ALLRET 

STA 0,SAVA 

LDA 0,POT«1 

STA 0,IDX1 

LDA 0,#IDX1 

MOV 0,0, SNR 

JMP ITT, 4 

STA 0,ITT,2 

LDA 0,#IDXI 

STA 0,ITT,3 

PCRLF 

MESSAGE 



DOALL 



SKPDN TTI 

JMP ITT.l 

NIOC TTI 

LDA 0,SAVU 

STA 0,UNIT 

LDA 0,SAVA 

STA 0,ALLRET 

SETAC 

LDA 3,SAV3 

INTEN 

JMP #0 







ICLEAR READ BUFFER 



IKNOCK DOWN THE TTI FLAG 
ICSI FLAG C8A 403) 

IRETURN TO CSI 
JIF TWO COMPUTERS 
IONLY PRINT DURING 
rREAD OR WRITE 



FA SEEK OR RECAL 

ISAVE ALL RETURN 

IPRINT TABLE 
IEND TABLE, DONE. 



ITXTLE 

IPRINT FOR ALL RDY UNITS 
IPRINT ROUTINE ADDRESS 
IOUXT IF KEY STRUCK 



IRESTORE UNIT # 
IRESTORE ALL RETURN 
IRESTORE AC'S 



SUB 0,0 
LDA 2, BUFF 
LDA 1,SC 
MOVS 1,1 
ADD 2,1 
STA 0,0,2 
INC 2,2 
SUB* 1,2, SZR 
JMP ,-3 
JMP 0,3 



ICLEAR READ BUFFER 
I8PACE TO ZEROS 



a 0081 .MAIN 



m • 

08 
03 

04 01030 




I8IT PARAMETERS 




084466 8ETI 


8TA 3,8ERET 




09 01031 


030167 


LDA 2, UNIT 


fSETUP DISK CONTROL 


06 01032 


020262 


IDA 0,8C 


IFOR CURRENT INSTRUCTION 


07 01033 


040306 


8TA 0,,8C 




06 01034 


034267 


LDA 3,8MAX 


IMAX # SECT DUE TO MEM S 


09 01036 


116433 


0UBZ# 0,3,8NC 




10 01036 


00046O 


JMR 8,1 


fMEMORV TOO SMALL 


11 01037 


100400 


NEG 0,0 


ICA-HEAD-8ECT0R 


12 01040 


024201 


IDA 1,C17 


I8ECT0R COUNT 


13 01041 


107400 


AND 0,1 




14 01042 


021026 


LDA 0,UNTIN8,2 




iS 01043 


107000 


ADD 0,1 




16 01044 


020881 


LOA «, SEC 


IFIR8T SECTOR 


17 01048 


103120 


ADOZL 0,0 




18 01046 


103120 


ADOZL 0,0 




10 01047 


107000 


ADD 0,1 




20 01090 


020283 


LDA 0,HD 




21 01091 


101300 


M0V8 0,0 




22 01092 


107000 


ADD 0,1 




23 01093 


067233 


DOCC 1,,DSKP 


fLOAO UNXT«HEAOoSECT«CNT 


24 01094 


002433 


DXC 0,.D8KR 


IREAD IT SACK 


29 01099 


122416 


8UBft 1,0, 8NR 


ICMECK 


26 01096 


000406 


JMR 8ET1 




27 01097 


006316 


SAVAC 


ILQAD ERROR 


28 01066 


006324 


RCRLF 




29 01001 


006323 


MESSAGE 




30 01062 


004472 


MS883 


l«DOC» 


31 01063 

32 

33 01064 


000412 


JMR 8ET2 




024264 8ET1I 


LDA 1,CA 




34 01069 


066033 


DOB 1,.D3KR 


ILOAD CURRENT ADDRESS 


39 01066 


061433 


DIB 0,,DSKR 


IREAO IT BACK 


36 01067 


106418 


SUB« 0.1. SNA 


ICMECK 


37 01070 


002428 


JMP RSERET 




36 01071 


006316 


SAVAC 


fLOAD ERROR 


39 01072 


006324 


RCRLF 




40 01073 


006323 


MESSAGE 




41 01074 


004478 


M8G84 


f"DOB" 


42 01078 


000323 8IT2I 


MESSAGE 




43 01076 


004800 


MS6BS 


»»LOAD ERROR" 


44 01077 


006384 


RCRLF 




48 01100 


006383 


MESSAGE 




40 01101 


004464 


M8G81 


IGOOD 


47 01102 


084840 


LDA 1,SAV1 




40 01103 


006381 


TYFAC1 




49 01104 


006323 


MESSAGE 




80 B1108 


004467 


M8G62 


IBAD 



a 0022 .MAIN 




01 




02 01106 02423? 


LOA 1.SAV0 


03 01107 006321 


TYPACl 


04 01110 030167 


IDA 2, UNIT 


05 01111 011151 


I8Z MISC.2 


06 01112 006364 


CKSW 


07 01113 000716 


JMP SET*1 


08 01114 002401 


JMP MERET 


09 01115 000000 SERETl 





10 




11 01116 006316 S.U 


3AVAC 


12 01117 006324 


PCRUF 


13 01120 006323 


MESSAGE 


14 01121 004422 


MSG39 


15 01122 024237 


LOA 1.SAV0 


16 01123 006322 


TYPZ1 


17 01124 006323 


MESSAGE 


IB 01125 004435 


MSG40 


19 01126 063077 


HALT 


20 0U27 000400 


JMP , 


21 




22 


fPRINT TAB 


23 




24 6)1130 001130 


• 


25 01131 004206 POTI 


MSG13 


26 01132 001166 


PHQR 


27 01133 004221 


MSG15 


26 01134 001176 


PTSEK 


29 01135 004212 


M8G14 


30 01136 001172 


PSKER 


31 01137 004314 


M8G25 


32 01140 001201 


PTWu 


33 01141 004324 


M8G26 


34 01142 001206 


PTWR 


35 01143 004361 


M8G29 


36 01144 001215 


PTAER 


37 01145 004371 


M8G30 


38 01146 001217 


PTPAE 


39 01147 004333 


MSG27 


40 01150 001211 


PTCWE 


41 01151 004345 


M8G28 


42 01152 001213 


PTCWP 


43 01153 004404 


M8G31 


44 01154 001221 


PTDER 


45 01155 004531 


M8G61 


46 01156 001223 


PTPOE 


47 01157 004570 


M8G65 


48 0116ft 001227 


PTCWD 


49 01161 004605 


M8G66 


50 01162 001231 


PTPCW 


91 01163 004543 


MSG62 


52 01164 001225 


PTMS 


53 01165 000000 






ICQUNT A8 A MISC ERROR 
fCHECK SWITCHES 



|»MEM TOO SMALL 



ISECTORS. RESTART 



A 
01 

02 

03 

04 

05 

06 

07 

0S 

09 

10 

11 

12 

13 

14 

IS 

10 

IT 

18 

10 

20 

21 

22 

23 

24 

25 

29 

27 

28 

29 

30 

31 

32 

33 

34 

30 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 



0023 .MAIN 



01166 
01167 
01179 
01171 



054445 

024167 
006322 
002442 



01172 025066 

01173 034440 

01174 006320 

01175 002436 



PHMf 



PSKERl 
PS. II 



01176 025055 PTSEKl 

01177 031061 
01200 000403 



01201 
01202 
01203 
01204 
01205 



025071 
031070 
054430 
006342 
002426 



PTWWI 
FT.il 



01206 020101 PTWRt 

01207 031105 

01210 000773 

01211 025111 PTCHEl 

01212 000761 

01213 025115 PTCMPl 

01214 000757 

01215 025121 PTAERl 

01216 000755 

01217 025125 PTPAEl 
01220 000753 



01221 025131 

01222 000751 



01223 
01224 



025145 
000747 



PTDERl 



PTPDEl 



01225 025151 PTMSt 

01226 000745 

01227 025135 PTCWOl 

01230 000743 

01231 025141 PTPCWI 

01232 000741 



. 8TA 3,TPET 
U>A l f UNIT 
TVPZl 
JMP iTRET 

LDA 1,3EKER,2 
3TA 3, TRET 
TYPOEC 
JMP #TRET 

LDA i,SEEKT,2 
LDA 2,3EEKT*4,2 
JMP PT.i 

LDA 1,WDSW,2 
LDA 2,WD3W+4,2 
8TA 3, TRET 
J3R PI.DBD 
JMP »TRET 

LDA 1,WD3R,2 
LDA 2,W0SR*4,2 
JMP PT.I 

LDA 1,CWER,2 
JMP PS.l 

LDA 1,CWERP,2 
JMP P8.1 

LDA 1, ADDER, 2 
JMP PS.l 

LDA 1,PADER,2 
JMP PS.l 

LDA 1,DATER,2 
JMP PS.l 

LDA i,PDER,2 
JMP PS.l 

LDA 1,MISC,2 
JMP P8.1 

LDA 1,CWDE,2 
JMP PS.l 

LDA 1,CWDEP,2 
JMP P8.1 



'PRINT HEADER NUMBER 



fPRINT # SEEK ERRORS 



'PRINT # SEEKS 



'PRINT WORDS WRITTEN 



IPRINT WORDS READ 



'PRINT CHECK WORD ERRORS 



fPRINT PERM CHK WD ERRS 



IPRINT ADDRESS ERRORS 



'PRINT PERM ADDR ERRS 



fPRINT OATA ERRORS 



IPRINT PERM DATA ERRS 



'PRINT * MISC ERRORS 



'PRINT # CHK WD AND 
'DATA ERRORS, 

'PRINT * PERM CHECK WORD 
'AND DATA ERRORS 



01233 000000 TRETI 



a 0024 
01 

OS 

93 

04 

05 

06 

07 

00 

00 

10 

11 

12 

13 

14 

15 

18 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 



.MAIN 



01234 

01235 

01236 

01237 

01240 

01241 

01242 

01243 

01244 

01245 

01246 

(91247 

01250 

01251 

01252 

01253 

01254 

01255 



054310 ALL! 

102400 

040157 ALL. II 

034310 

030157 

021022 

024160 

123414 

007400 

000401 

000401 

010157 

020157 

024024 

122414 

000763 

01031* 

002310 



01256 
01257 
01260 
01261 
01262 
01263 
01264 



iE¥|euTE THE ROUTINE POINTED TO BY 
ITHE WORD FOLLOWING THE CALL. 00 TO 
IONCE FOR EACH ACTIVE UNIT 



8TA 3,ALLRET 
SUB 0,0 
STA 0,UNIT 
LOA 3,ALLRET 
LDA 2, UNIT 
LDA 0,DRV3,2 
LDA 1,R0YUNT 
AND* 1,0, 8ZR 
J3R #0,3 
JMP ,*1 
JMP .+1 
ISZ UNIT 
LDA 0,UNIT 
LDA 1,C4 
8UB# 1,0, 8ZR 
JMP ALL.l 
ISZ ALLRET 
JMP PALLRET 



054406 OLYI 

030234 

050235 

014235 

000777 

002401 

0*0000 DLYRET: 



01265 
01266 
01267 
01270 
01271 
01272 
01273 



006353 P3I 

006324 

024236 

006321 

006323 

004154 

002274 



100 IT FOR THIS UNIT 
IIGNORE RETURN+1,+2 ROUT'S 



IDELAY 12.5MS 
PDO NOT USE AC0,1 

STA 3, DLYRET 
LDA 2, TIME 
STA 2, TIMER 
D8Z TIMER 
JMP ..1 
JMP PDLYRET 




IPRINT STATUS 

HEADER 

PCRLF 

LDA i,ISTAT 

TYPAC1 

MESSAGE 

M8G1 

JMP #RWRET 



I" ■ ENDING STATUS" 



a teas .main 



at 

** * 

02 
03 




IAIK 700 0X8K 


SIZE 


04 01874 


054425 .6801 


•TA 3,PD0RET 




05 01875 


006384 


RCRLP 




09 01876 


006383 


MESSAGE 




07 01277 


004647 


H8669 


MTYPE THE NUM8ER 


00 01300 


006330 


INPUT 


IWAXT FOR ZNFUT 


09 01301 


000857 


UBP 


I6YTE POINTER 


10 01308 


000440 


JMP ,6501 


f"CR« ONLY IS ERRO 


11 01303 


006386 


6ETATM 


ICET THE NUMBER 


12 01304 


105000 


MOV 0,1 




13 01305 


006385 


SEARCH 


IIS NUMBER 2,10 OR 


14 01306 


001388 


HNUM 


ITABLE ADDRESS 


15 01307 


000433 


JMP ,GSDi 


INO U 


16 01310 


081007 705,81 


LOA 0,3MX-HNUM 


#8 


17 01311 


040171 


8TA 0,L8 


JIAST SECTOR*! 


16 01312 


081004 


LOA 0,HMX-HNUM 


i2 


10 01313 


040170 


STA 0,LHO 


ILAST HEADM 


80 01314 


081018 


LOA 0.MS1-HNUM 


.2IHEAD MASK 


21 01315 


040303 


STA 0,HMSK 




22 01316 


021015 


IDA 0,MS8-HNUM ( 


.2ISECT0R MASK 


23 01317 


040304 


STA 0,3M3K 




24 01320 


008401 


JMP #FD3RET 




25 01321 


000000 F08RETI 








DISK SURFACES 



20 



a 0026 .MAIN 






01 






02 01322 000002 


HNUMI 


2 


03 01323 000010 




10 


04 01324 000020 




20 


05 01325 000000 







06 






07 01326 000002 


HMXt 


2 


0B 01327 000012 




10. 


09 01330 000024 




20. 


10 






11 01331 000014 


3MXI 


12. 


12 01332 000006 




6 


13 01333 000014 




12. 


14 






15 01334 000400 


MS1I 


400 


16 01335 007400 




7400 


17 01336 017400 




17400 


18 






19 01337 007400 


MS2I 


7400 


20 01340 003400 




3400 


21 01341 007400 




7400 


22 






23 01342 006323 


,65011 


MESSAGE 


24 01343 004444 




MS643 


25 01344 000731 




JMP .GSD+1 



ICARTRIDGE 

12311 
12314 



ICARTRIDGE 

12311 
12314 



IHEAO MASKS 



ISECTOR MASKS 



IERROR 



a 0027 .MAIN 

A « 

<B t 

02 

03 
04 
05 

06 01945 

07 01345 

08 01347 

09 01350 

10 01351 
U 01352 

12 01353 

13 01354 

14 01355 

15 01356 
16 

17 01357 

18 01360 

19 01361 

20 01362 

21 01363 

22 01364 

23 01365 

24 01366 
25 

26 01367 

27 01370 

28 01371 

29 01372 

30 01373 

31 01374 

32 01375 
33 

34 01376 

35 01377 

36 01400 

37 01401 

38 01402 

39 01403 

40 01404 
41 

42 01405 

43 01406 

44 01407 

45 01410 

46 01411 

47 01412 

48 01413 

49 01414 

50 01415 

51 01416 

52 01417 

53 01420 



102621 
102520 
101001 
102400 
040270 
020361 
042343 
042344 
020265 
040254 

006361 
030302 
113700 
021022 
024160 
123405 
000772 
050157 

006361 
024303 
123700 

024170 
106437 
000773 
040253 

006361 
024304 

123700 

024171 
106437 
000764 
040251 

006361 
024305 
123705 
020202 
024267 
106433 
000772 
040252 
024251 
030253 
006316 
010237 



I 

F 
F 

moot 

RELEVI 
RELALLI 



*•* 



DISK RELIABILITY TEST 



******* 



REL.ll 



REL.2I 



REL.3! 



REL.4I 



SUBZR 0,0, 3KP 
SU6ZL 0,0 
MOV 0,0, 8KP 
SUB 0,0 
8TA 0,EVODN 
LDA 0,IRAN 
STA 0,#XROAT 
STA 0,»XHDAT 
LOA 0,BUFF 
STA 0,CA 

RAND 

LOA 2,UMSK 
ANOS 0,2 
LDA 0,DRV8,2 
LOA 1,RDYUNT 
AND 1,0, SNR 
JMP REL.l 
STA 2, UNIT 

RANO 

LDA 1,HMSK 
ANOS 1,0 
LDA i,LHO 
SUBZ# 0,1, SBN 
JMP REL.2 
STA 0,HD 

RANO 

LDA 1,SMSK 
ANOS 1,0 
LDA 1,LS 
SUBZ* 0,1, SBN 
JMP REL.2 
STA 0,SEC 

RAND 

LOA 1,LMSK 
ANOS 1,0, SNR 
LDA 0,C20 
LDA 1,SMAX 
SUBZ* 0,1, SNC 
JMP REL.4 
STA 0,SC 
LDA 1,SEC 
LDA 2,HD 
SAVAC 
ISZ SAV0 



FUSE ODD CYLINDERS 

FUSE EVEN CYLINDERS 

FUSE ALL CYLINDERS 

FSET FOR RANDOM DATA 

FMEM ADDR. CONST 



FCET RANDOM UNIT « 
FUNIT SIZE MASK 



FUNIT READY 1 
FNO, TRY AGAIN 

FGET RANDOM HEAD « 
FHEAD SIZE MASK 

FHEAD « OK T 

FTOO LARGE, TRY AGAIN 

FGET RANDOM STARTING SECTOR 
F8ECT0R SIZE MASK 

F8ECT * OK T 

FTOO LARGE, TRY AGAIN 



FGET RANOOM # OP SEC 
F« SECTORS MASK 
FDON'T ALLOW 
FZERO IS ACTUALLY 20 
FENOUGH CORE T 

FNO, TRY AGAIN 

FCHECK TO SEE IP 
FTRANSPER MILL CAUSE 
F»END CYLINDER" 



a 0028 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 



01421 

01422 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 

01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 



'.MAIN 

014237 REL.5I 

000402 

000420 

010240 

020240 

024171 

122434 

000771 

102400 

040240 

010241 

020241 

024170 

122414 

000762 

020237 

101224 

000743 

006361 REL.6I 

024216 

123400 

024270 

125005 

000404 

101220 

125100 

101100 

024213 REL.7I 

122432 

000765 

030157 

025051 

045045 

041051 



08Z SAV0 
JMP ,*2 

JMP REL.6 
I8Z SAVi 

LOA 0,3AV1 
LOA 1,13 
SUBZ* 1,0, SZR 
JMP REU.5 
SUB 0,0 
STA 0,8AV1 
I3Z 8AV2 
LOA 0,3AV2 
LOA l,LMO 
SUB* 1,0, SZR 
JMP REL.5 
LOA 0,SAV0 
MOVZR 0,0, SZR 
JMP REL.4 

RAND 

LOA 1,C377 
AND 1,0 
LDA l.EVODN 
MOV 1,1, SNR 
JMP REL.7 
MOVZR 0,0 
MOVL 1»1 
MOVL 0#0 
LDA 1,C203. 
8UBZ* 1,0, SZC 
JMP REL.6 
LDA 2, UNIT 
LDA 1,CYLT,2 
STA 1,CYLF,2 
STA 0,CYLT,2 



I** 

j ** 



SEEK 



ISECTOR COUNT OKI 
ICURRENT 3ECT*1 

»HEAD OVERFLOW ? 

»NO, COUNT ANOTHER SECT 

IYES, SELECT NEXT HEAD 

IEND CYLINDER T 

INO, COUNT ANOTHER SECTOR 

IVES, DONE IF THIS IS 
»THE LAST SECTOR 

I GET ANOTHER RAND # 

fGET RANDOM CYLINDER * 



IUSE ALL CYLINDERS 
ICYL * RIGHT ONE 
IOOO BIT TO (C) 
ICYL «, ODD OR EVEN 
IIS CYL # < 203. 

INO, TRY ANOTHER * 



|"TO»««FROM« 
INEW »T0« 



01463 
0)1464 
01465 
01466 
01467 



102000 
040155 
006350 
006354 
000776 



ADC 0,0 
STA 0,HSW 
SEEK 
CKSW 
JMP ,-2 



JSEEK NEW CYLINDER 
IERR0R, CHECK SWITCHES 
PLOOP ON IT 



A 1 


8029 


.MAIN 


01 






02 






03 






04 






05 






00 


01470 


102000 


07 


01471 


040155 


08 


01472 


020243 


09 


01473 


040245 


10 


01474 


020245 


11 


01475 


040243 


12 


01476 


006347 


13 


01477 


006354 


14 


01500 


000774 


15 






16 


01501 


020270 


17 


01502 


101005 


18 


01503 


000406 


19 


01504 


102000 


2» 


(91505 


040155 


21 


01508 


006350 


22 


01507 


006354 


23 


01510 


000776 


24 






25 






26 






27 






28 






29 


01511 


102000 


30 


01512 


040155 


31 


01513 


020245 


32 


01514 


040243 


33 


01515 


006346 


34 


01516 


006354 


35 


01517 


000774 


36 












36 






39 


01520 


020161 


40 


01521 


101005 


41 


01522 


000635 


42 


01523 


014422 


43 


01524 


000633 


44 


01525 


006324 


45 


01526 


006323 


46 


01527 


004441 


47 






48 






49 






50 







I** 
| *• 



WRITE 0Z8K 



ADC 0,0 
8TA 0,H8W 
LOA 0, RANDOM 
8TA 0,RELRAN 
LOA 0,RELRAN 
8TA 0, RANDOM 
WRITE 
CK3W 
JMP .-4 

LDA 0,EVODN 
MOV 0,0, SNR 
JMP .RED 
ADC 0,0 
3TA 0,H8W 
SEEK 
CK3W 
JMP ,-2 



I8AVE 8EGINNING OP 
IRANOOM NUMBERS 
PRESET RANDOM NUMBERS 
IFOR LOOPING 
IGEN DATA I WRITE 
IERROR, CHECK SWITCHES 
ILOOP ON IT 

IIP TWO COMPUTERS, SEEK AGAIN 
tONLY ONE 



ISEEK SAME CYLINDER 

IERROR, CHECK SWITCH CONTROL 

ILOOP ON IT 



I** 
I** 
I** 



READ DISK 



.REDI ADC 0,0 

STA 0,HSW 

LDA 0,RELRAN 

STA 0, RANDOM 

READ 

CK8W 

JMP ,«4 



ISET RAN # GEN FOR THE 
IREAD CHECK 
IREAD AND CHECK DATA 
IERROR, CHECK SWITCHES 
ILOOP ON IT 



ICHECK ENDING FOR TERMINATION 



LDA 0,RALL 
MOV 0,0, SNR 
JMP REL.i 
D8Z CRALL 
JMP REL.i 
PCRLP 
MESSAGE 
MSG41 



.EOT 



IMORE RELIABILITY 

IRUN ALL MODE 

IDO 512 LOOPS ONLY 



l»PA38" 



0030 
01 
02 
03 

04 
05 
06 
07 
08 
09 
10 
11 
12 
13 

15 
16 
17 
18 
19 



.MAIN 



20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



01530 

01531 

01532 

(31533 

01534 

01535 

01536 

01537 

015401 

01541 

01542 

01543 

01544 

01545 

01546 

01547 

01550) 
01551 
01552 
31553 
01554 
01555 
01556 



020173 RUNALLI 

040414 

040161 

030414 

050412 

010411 R.ll 

022410 

101005 

00106101 

040275 

0K6314 

001615 

00J0771 

000000 CRALLI 

000000 PADDI 



001547 

004134 
004135 
004140 
004142 
004147 
003377 
000000 



All 



*********************************************** 
******* RUN ALL TESTS ******* 

#### *»t**************************************** 

>RUN ALL DISK ADDRESS PATTERNS 
ITHEN RUN RANDOM EXERCISER FOR A 
rWHILE. THEN REPEAT 

LDA 0,C1000 
3TA 0,CRALL 
ST* 0#RALL 
LDA 2,A1-1 
STA 2,PADD 
ISZ PADD 
LDA 0,#PADD 
MOV # 0»SNR 
JMP RELALL 
STA 0,OAOAT 
DDALL 
DAT, 
JMP R,l 





ZEROS 

ONES 

RATI 

FL1 

FLZ 

RAN 





IDO DISK ADDRESS 
ITEST FOR EACH PATTERN 



a 0031 


,HAZN 








01 










02 01557 


020776 


DATRI 


IDA 0,Al+5 


fDISK ADDR TEST 


03 01560 


024244 




IDA 1,,RAN 


ISET RANDOM BASE 


04 01561 


044243 




8TA 1, RANDOM 


1 NUMBER 


05 01562 

06 

07 01563 


000412 




JMP DATF0+1 




020766 


DAT1I 


LDA 0,A1*1 




08 01564 

09 

10 01565 


000410 




JMP DATF041 




020763 


DAT0I 


LDA 0,A1 




11 01506 

12 

13 01567 


000406 




JMP DATF0+1 




020763 


DATPI 


LDA 0,Al+2 




14 01570 

15 

18 01571 


000404 




JMP OATF0*1 




020762 


0ATF1I 


LDA 0,Al+3 




17 01572 

18 

19 01673 


000402 




JMP DATF0*1 




020761 


DATF0I 


LDA 0,Al+4 




20 01574 


040275 




3TA 0,OADAT 




21 01575 


060210 




NIOC TTI 




22 01576 


006324 




PCRLF 




23 01677 


006323 




MESSAGE 




24 01600 


004700 




MS671 


M'SET SN4 FOR INTERC 


25 01601 


006324 




PCRLF 




26 01602 


006323 




MESSAGE 




27 01603 


004726 




M8G72 


|»3TRIKE ANY KEY TO 


26 01604 


063610 




SKPDN TTI 




29 01608 


000777 




JMP ..1 




30 01606 


060210 




NIOC TTI 




31 01607 


006314 


OATI 


DOALL 


>DO IT ONCE FOR EACM 


32 01610 


001615 




DAT. 


IREADY DISK 


33 016U 


006324 




PCRLF 




34 01612 


006323 




MESSAGE 




35 01613 


004441 




M3G41 


»«PASS» 


36 01614 


000773 




JMP DAT 





a 0032 . 

01 

02 


MAIN 








1 








03 

04 
05 
06 


1 

1 

1 








WRITE THE ENTIRE DISK, THEN REAO. 


07 


1 


OAT* 


i PATTERN 


IN (DADAT). 


08 
09 
10 01615 


I 


DISK 


; DRIVE IN 


(UNIT). 


054525 OAT.I 


STA 


3, CARET 




11 01616 


074477 


READS 3 


1 IF SW5«1, READ ONLY 


12 01617 


024172 


LDA 


1iC2000 




13 01620 


020524 


LDA 


0,DRD 




14 01621 


137404 


AND 


1,3,SZR 




15 01622 


000403 


JMP 


.♦3 




16 01623 


126000 


ADC 


1.1 




17 01624 


020521 


LDA 


0,DWT 




18 01625 


044516 


STA 


1,RFLG 


IR/W FLAG 


19 01626 


040454 


STA 


0,OATRW 


IWRITE FIRST 


20 01627 


020247 


LDA 


0,LAST 




21 01630 


040254 


STA 


0,CA 


IBUFFER ADDRESS 


22 01631 


020275 


LDA 


0,DAOAT 




23 01632 


042343 


STA 


0,#IRDAT 


IDEFINE DATA 


24 01633 


042344 


STA 


0,PIWDAT 


IPATTERN 


25 01634 


020243 


LDA 


0, RANDOM 




26 01635 

27 

28 01636 


040511 


STA 


0,DARAN 


ISAVE RANDOM START 


020510 OAT. 01 


LDA 


0,DARAN 


IRESET RANDOM FOR 


29 01637 


040243 


STA 


0, RANDOM 


IRECYCLE 


30 01640 


102400 


SUB 


0,0 




31 01641 


040036 


STA 


0,FLO1 


IRESET FLOATING 011 


32 01642 


040037 


STA 


0,FLOZ 


IPATTERNS 


33 01643 


102000 


ADC 


0,0 




34 01644 


040155 


STA 


0,MSW 


fSET HEADER SWITCH 


35 01645 


006351 


RECAL 


^RECALIBRATE DRIVE 


36 01646 


006354 


CKSW 


IERROR, CHECK SWITCHES 


37 01647 

38 

39 01650 


000776 


JMP 


.-2 


ILQOP ON ERROR 


030157 DAT, 11 


LDA 


2, UNIT 


ISEEK NEW CYLINDER 


40 01651 


021051 


LDA 


0iCYLT,2 


ITO ■ FROM 


41 01652 


041045 


STA 


0,CYLF,2 




42 01653 


011051 


ISZ 


CYLT,2 


|TO*l ■ TO 


43 01654 


101400 


INC 


0,0 




44 01655 


024213 


LDA 


1,C203. 




45 01656 


122405 


SUB 


1,0, SNR 




46 01657 


000437 


JMP 


OAT. 3 


IDONE, READ OR WRITE 


47 01660 


102000 


ADC 


0,0 


ISET HEADER SWITCH 


48 01661 


040155 


STA 


0,HSW 




49 01662 


006350 


SEEK 




50 01663 


006354 


CKSW 


IERROR, CHECK SWITCHES 


51 01664 


000776 


JMP 


.-2 


ILOOP ON ERROR 


52 01665 


102400 


SUB 


0,0 


IBEGIN WITH HEAD 


53 01666 


040253 


STA 


0,HD 


ISECTOR 


54 01667 


040251 


STA 


0,SEC 




55 01670 


040276 


STA 


0»CFLG 




56 01671 


020267 


LDA 


0,SMAX 


IMAX ft OF SECTORS 


57 01672 


040252 


STA 


0,SC 


IDUE TO MEM SIZE 


58 01673 


040300 


STA 


0,CSC 





a 0033 .MAIN 










02 01674 102000 


OAT. 21 


ADC 


0,0 


ISET THE HEADER SWITCH 


03 01075 040158 




3TA 


0,HSW 




04 01876 020243 




LDA 


0, RANDOM 


I8AVE RAN « POSITION 


08 01677 040248 




8TA 


0,RELRAN 


UN CASE OP SCOPE LOOP 


00 01700 020248 




LDA 


0,RELRAN 


IRE8T0RE RANDOM # 


07 01701 040243 




3TA 


0, RANDOM 


IFOR SCOPE LOOP 


06 01702 006347 


DATRWI 


WRITE 


IREAD OR WRITE 


09 01703 006384 




CKSW 


IERROR, CHECK SWITCHES 


10 01704 000774 




JMP 


.-4 


fLOOP ON ERROR 


11 01708 020276 




LDA 


0,CPLG 


IEND CYL NOW 7 


12 01706 101004 




MOV 


0,0, SZR 




13 01707 000741 




JMP 


DAT.l 


IYE8 - SEEK AGAIN 


14 01710 004437 




J8R 


SCNT 


MOVANCE DISK ADDRESS 


15 01711 040251 




STA 


0,SEC 


IUPDATE SECTOR AND 


16 01712 044283 




3TA 


l,HO 


IHEAD, 


17 01713 004434 




JSR 


SCNT 


ILOOK AHEAD 


16 01714 080282 




STA 


2,SC 


ISET NEW SECTOR COUNT 


10 01718 000787 

20 

21 01716 010428 




JMP 


DAT. 2 




DAT. 31 


ISZ 


RFLG 




22 01717 000404 




JMP 


DAT. 4 


IDONE WRITE S READ 


23 01720 020424 




LDA 


0,DRO 




24 01721 040761 




STA 


0,OATRW 


ISET TO READ MODE 


28 01722 000714 




JMP 


DAT.0 




26 01723 060477 


DAT. 41 


READS 


IIP 3W4M BREAD FOR 


27 01724 024038 




LDA 


1,C4K 


IDISK INTERCHANGE 


28 01728 107404 




AND 


0,1, SZR 




29 01726 000407 




JMP 


DAT. 8 




30 01727 024172 




LDA 


1,C2000 


IIP SWSil RESET 


31 01730 107406 




AND 


0,1, SNR 


IRANDOM PATTERN 


32 01731 002411 




JMP 


•DARET 


IEXIT 


33 01732 024244 




LDA 


If .RAN 


IRANOOM INITIAL 


34 01733 044243 




STA 


1, RANDOM 


I8TART 


38 01734 002406 




JMP 


•DARET 




36 01738 006324 


DAT. 81 


PCRLP 




37 01736 006323 




MESSAGE 




38 01737 004636 




M8G66 


^INTERCHANGE DISK" 


39 01740 063077 




HALT 






40 01741 000777 




JMP 


• •1 




41 01742 000000 


DARETI 









42 01743 000000 


RFLGI 









43 01744 006346 


DROI 


READ 






44 01748 006347 


DWTl 


WRITE 




48 01746 000000 


DARANl 










a 0034 .MAIN 








01 

02 » 




MOVE BEGINNING SECTOR AND HEAD ADDRESS 


03 1 




FORWARD BY THE NUMBER OF SECTORS IN (CSC), 


04 1 




IF END CYLINDER SET »CPLG% 


05 

06 1 




EXIT - AC0» 


NEW SECTOR START 


07 1 




ACH 


NEW HEAD START 


00 I 




AC2- 


SECTOR COUNT 


09 

10 01747 054430 5CNTI 


STA 3,3CRET 




11 01750 020300 




UDA 0,CSC 




12 01751 040427 




STA 0,WORK 




13 01752 020251 




UDA 0,SEC 


ICURRENT BEGINNING SECTOR 


14 01753 024253 




IDA 1,HD 


ICURRENT BEGINNING HEAD 


15 

16 01754 101400 SC, 


ill 


INC 0,0 


|3ECT*1 


17 01755 030171 




IDA 2, IS 


ICHECK FOR SECTOR OVERFLOW 


18 01756 112405 




SUB 0,2, SNR 




10 01757 000405 




JMP SC.3 


IOVERFLOW 


20 01760 014420 SC, 


.21 


OSZ WORK 


IDQNE t 


21 01761 000773 




JMP SC.t 


INO 


22 01762 030300 




LDA 2, CSC 


IYES, EXIT 


23 01763 002414 




JMP »SCRET 




24 

25 01764 141000 SC, 


.31 


MOV 2,0 


ISECT-0 


26 01765 125400 




INC 1,1 


IHEAO+1 


27 01766 030170 




LDA 2,LHD 




28 01767 132404 




SUB 1,2,SZR 


IHEAO OVERFLOW ? 


29 01770 000770 




JMP SC.2 


INO 


30 01771 010276 




ISZ CFLG 


IYES, END CYLINDER 


31 01772 034406 




LDA 3, WORK 




32 01773 030300 




LDA 2, CSC 




33 01774 172400 




SUB 3,2 




34 01775 151400 




INC 2,2 




35 01776 002401 




JMP FSCRET 




36 01777 000000 SCRETl 







37 02000 000000 WORKI 








A 0035 .MAIN 
Si 

02 I 

03 I 

04 I 
05 

06 
07 

08 02001 

09 02002 

10 02003 

11 02004 

12 02005 

13 02006 

14 02007 

15 02010 

16 02011 

17 02012 

18 02013 
10 02014 
201 02015 

21 02016 

22 02017 

23 02020 

24 02021 

25 02022 

26 02023 

27 02024 

28 02025 

29 02026 

30 02027 

31 02030 
32 
33 
34 

35 02031 

36 02032 

37 02033 

38 02034 

39 02035 

40 02036 

41 02037 

42 02040 

43 02041 

44 02042 

45 02043 
40 02044 

47 02045 

48 02046 

49 02047 

50 02050 
61 02051 

52 02052 

53 02053 

54 02054 



COMMAND STRING INTERPRETER 



***** 



006323 QUE8TI 

004444 

102520 CMD8TI 

040156 

060210 

060233 

006324 

006323 

004240 

006330 

000257 

000417 

102400 

040160 

006326 

125004 

000760 

024024 

122432 

000755 

040157 

101003 

000752 
000403 



006323 

004444 

006324 CMD.2I 

006323 

004244 

006330 

000257 

000445 

006326 

126005 

000412 

006325 

004117 

000763 

025007 

046343 

046344 

101005 

000756 

000431 



ISET COMMAND 8TR 
IUNIT SELECT 
MESSAGE 

M8G43 

SUBZL 0,0 

STA 0,C3IF 

NIOC TTI 

NIOC .DSKP 

PCRLF 

MESSAGE 

M8G17 

INPUT 

UBP 

JMP CMC, 2 

SUB 0,0 

STA 0.RDYUNT 

GETATM 

MOV 1,1, SZR 

JMP QUEST 

LDA 1,C4 

SUBZ* 1,0, SZC 

JMP QUEST 

STA 0,UNIT 

MOV 0,0, SNC 

JMP QUEST 

JMP CMC, 2 

JDATA SELECT 



ING PARAMETERS 



ISET THE CSI FLAG 

ICLEAR TTI FLAG 
ICLEAR DISK GARBAGE 



I»UNITI » 
IACCEPT INPUT 

fSAME AS LAST TIME 

ICLEAR ALL UNITS 

HC0«# ACMNAME 
fNAMES NOT LEGAL 

IUNIT «>3 

IMORE LEFT, ERROR 



MESSAGE 
M8643 
PCRLF 
MESSAGE 

M8G18 

INPUT 

UBP 

JMP GCS 

GETATM 

MOV 1,1, SNR 

JMP CMD.3 

SEARCH 

DNT 

JMP CMD.2-2 

LDA l,DNT.t-DNT,2 

STA 1,#IRDAT 

STA 1,PIWDAT 

MOV 0,0, SNR 

JMP CMD.2-2 INO CR FOLLOWING NAME 

JMP GCS IGET COMMAND STRING 



I -?- 



|«DATAI « 
IACCEPT INPUT 

ISAME AS LAST TIME 



INO NAME, MUST BE « 
ISEARCH NAME TABLE 

INOT FOUND 



* 0036 .MAIN 

01 

02 02055 024261 CMD.3I LOA i,VARST 

03 02056 044020 STA 1,10X0 

04 02057 042020 STA 0,#IDX0 

05 02060 024256 IDA 1,TERM 

06 02061 125004 MOV 1,1, 3ZR 

07 02062 000416 JMP CMD.5 

08 02063 006326 CMD.4! GETATM 

09 02064 125004 MOV 1,1, SZR 

10 02065 000744 JMP CMD.2-2 JNAMES NOT ALLOWED 

11 02066 042020 STA 0,#IDX0 

12 02067 101002 MOV 0,0, SZC 

13 0207a 00041(9 JMP CMD,5 

14 02071 020262 IDA 0,VAREO 

15 02072 024020 LOA 1,IDX0 

16 02073 122414 SUB* 1,0, SZR 

17 02074 000767 JMP CMD.4 

18 02075 006324 PCRLF 

19 02076 006323 MESSAGE 

20 02077 004261 M8G20 

21 

22 02100 020020 CM0.5I LDA 0,10X0 

23 02101 040263 STA 0,VARSP 

24 02102 020333 LOA 0,IVAR 

25 02103 042343 STA 0,#IRDAT 

26 02104 042344 STA 0,»IWDAT 
27 

28 

29 

30 IGET COMMAND STRING 

31 

32 02105 006324 GCSl PCRLF 

33 02106 006323 MESSAGE 

34 02107 004250 MSG19 | H COMMAND STRING! " 

35 02110 006330 INPUT IACCEPT INPUT 

36 02111 000260 CS8P JCMD STR BYTE POINTER 

37 02112 000401 JMP .+1 rSAME AS BEFORE 

38 02113 063710 GC3.ll SKPOZ TTI 

39 02114 000667 JMP CM05T UNTERRUPT CMD STRING 

40 02115 102000 ADC 0,0 

41 02116 040155 STA 0,HSW 

42 02117 006326 GETATM ILINCT«BYTE POINTER 

43 02120 006325 SEARCH 

44 02121 004102 OCT INAME IN ACl 

45 02122 000402 JMP CSER >NOT FOUND 

46 02123 003007 JMP #DCT, 1-DCT, Zt DISPATCH 
47 

48 02124 006323 CSER! MESSAGE ICOMMANO STRING ERROR 

49 02125 004444 MSG43 f -?- 

50 02126 000757 JMP GCS 



a 0037 , 


.MAIN 




** • 






08 




IREAD command 


03 






04 B2127 


101002 REI 


MOV 0,0, 8ZC 


09 02130 


000774 


JMP C8ER 


06 02131 


006327 


GETPAR 


07 02132 


020245 


LDA 0,RELRAN 


08 02133 


040243 


STA 0, RANDOM 


09 02134 


006346 


REAO 


10 02135 


006354 


CKSW 


11 02136 


000774 


JMP .-4 


12 02137 


020256 REI 1 


LDA 0,TERM 


13 02140 


101004 


MOV 0,0, 3ZR 


14 02141 


000642 


JMR CMD3T 


13 02142 


000751 


JMP 8C8,1 


16 






17 




IWRXTE COMMAND 


16 02143 


101002 WTI 


MOV 0,0, SZC 


10 02144 


000760 


JMP C8ER 


20 02145 


006327 


GETPAR 


21 02146 


020243 


LDA 0, RANDOM 


22 02147 


040245 


8TA 0,REURAN 


23 02150 


020245 


LDA 0,RELRaN 


24 02151 


040243 


STA 0, RANDOM 


25 02152 


006347 


WRITE 


26 02153 


006354 


CKSM 


27 02154 


000774 


JMP .-4 


26 02155 


000762 


JMP REI 



ICR TERMINATOR ILLEGAL 
IGET R/W PARAMETERS 
I8ET RAN « BEGIN 

IREAD AND CHECK DATA 
IERROR, LOOK AT SWITCHES 
ILOOP ON ERROR 



IALL DONE 
IGET ANOTHER COMMAND 



ICR TERMINATOR ILLEGAL 
IGET R/W PARAMETERS 
I3AVE BEGIN OP RANDOM 
INUMBERS IN CASE OF LOOP 
IRESET RAN ft BEGINNING IN 
ITHE SCOPE LOOP 
IGENERATE DATA AND WRITE 
TERROR, CHECK SWITCHES 
ILOOP ON ERROR 



a (8038 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

1* 

15 

16 

17 

16 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 



02156 

(82157 

02160 

02161 

02162 

02163 

02164 

02165 

02166 

02167 

02170 

02171 

02172 

02173 

02174 



02175 

02176 
02177 

02200 
022B1 
02202 



02203 
02204 
02205 
02206 
02207 



,MAIN 

I8EEK COMHANO 

101002 SRI MOV 0,0, SZC 

000745 JMP CSER 

006326 GETATM 

192560 SUBCL 2,2 

050256 STA 2, TERM 

125004 MOV 1,1, SZR 

000740 JMP CSER 

030157 LOA 2, UNIT 

025051 IDA 1,CYUT,2 

045045 STA 1,CYLF,2 

041051 STA 0,CYLT,2 

006350 SEEK 
006354 CKSw 
000776 JMP ,»2 
000743 JMP RE1 

PRECAL1BRATE 

102560 RCLI SUBCL 0,0 
040256 STA 0,TERM 

006351 RECAL 
006354 CKSW 
000776 JMP .-2 
000735 JMP RE1 

IUOOP 

020260 LUPJ LDA 0,CSBP 
040250 STA 0,tINCT 

102000 ADC 0,0 

040155 STA 0,HSW 

000704 JMP GCS.i 

IOELAY 



02210 101002 OLAYI MOV 0,0, SZC 

02211 000713 JMP CSER 

02212 006326 GETATM 

02213 125005 MOV 1,1, SNR 

02214 101002 MOV 0,0, SZC 

02215 9967^7 JMP CSER 

02216 100400 NEG 0,0 

02217 006313 OLY12 

02220 101404 INC 0,0, SZR 

02221 000776 JMP .-2 

02222 000671 JMP GCS.l 



PCR TERMINATOR ILLEGAL 
IGET CYL # IN AC0 



fNAMES ILLEGAL 

pTQ • CYL * 

fTO BECOMES FROM 

PSET NEW TO 

tDO TME SEEK 

PERROR, LOOK AT SNITCHES 

ILOOP ON ERROR 



PSAVE CO, 1»TERM 

^RECALIBRATE 

PERROR, CHECK SWITCHES 

ILOOP ON ERROR 



PRESET THE COMMAND STRING 

IBYTE POINTER 

PSET THE HEADER FLAG 



PGET DELAY # 

PMMES ILLEGAL 

ICR TERM IS ILLEGAL 

P12.3MS DELAY LOOP 



a 0039 .MAIN 
w* 

02 » 

03 f 

04 1 
09 

06 
07 
00 
09 

10 02223 054274 

11 02224 102400 

12 02225 040164 

13 02226 030157 

14 02227 021026 

15 02230 063233 

16 02231 020217 

17 02232 061333 

18 02233 021051 

19 02234 041045 

20 02239 102000 

21 02236 041051 

22 02237 020232 

23 02240 006341 

24 02241 002274 

25 02242 025032 

26 02243 107405 

27 02244 002352 

28 02245 124000 

29 02246 034225 

30 02247 167400 

31 02250 107404 

32 02251 002352 

33 02252 000535 



RECLI 



***** 



DISK HANDIER 8U6R0UTINE8 ***** 



^RECALIBRATE 
fRETURN+1 FATAL ERROR 
lRETURN+3 NORMAL 



9TA 3,RWRET 




SUB 0,0 


I8ET THE PROGRAM MODE 


STA 0,MODE 




LDA 2, UNIT 




LDA 0,UNTINS,2 




OOCC 0,.OSKP 


ISELECT UNIT 


LDA 0,C1400 




DOAP 0,.DSKP 


IRECAL 


LDA 0,CYLT,2 




3TA 0,CYLF,2 


ITO ■ FROM 


ADC 0,0 




STA 0,CYLT,2 




LDA 0,M250, 


13 SECOND TIMER 


JSR »NAT 


JWAITING FOR INTERRUPT 


JMP PRWRET 


ITIMEOUTUl 


LDA 1,UNTDN,2 


IRECAL INT, RETURN 


AND 0,1, SNR 




PSTAT 


JNO DONE STATUS 


COM 1,1 




LDA 3,C9P1 


1177977 


AND 3,1 




AND 0,1, SZR 




PSTAT 


IBAD STATUS 


JMP GENRET 





A 

91 

02 

03 

04 

09 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



040 .WAIN 



I8EEK SUBROUTINE 
|RETURN*3 NORMAL 
FRETURN*! FATAL ERROR 



02253 054274 ,SEEK| 

02254 102520 

02255 040164 

02256 030157 

02257 021026 

02260 063233 

02261 021051 

02262 024173 

02263 123000 

02264 061333 

02265 011061 

02266 000402 

02267 011055 

02270 006360 

02271 002274 

02272 025032 

02273 107415 

02274 000407 

02275 124000 

02276 034225 

02277 167400 

02300 107404 

02301 000402 

02302 000505 

02303 024205 SE.H 

02304 107404 

02305 011065 

02306 002352 



8TA SiRWRET 
SUBZL 0#0 
STA 0,MODE 
LDA 2, UNIT 
LDA 0,UNTINS,2 
OOCC 0,.DSKP 
LDA 0,CYLT,2 
LDA 1,C1000 
ADD 1,0 
DOAP 0,.OSKP 
ISZ SEEKT*4,2 
JMP ,*2 
ISZ SEEKT,2 
INTWT 
JMP #RWRET 

LDA 1,UNTDN,2 
AND* 0,1, SNR 

JMP SE.l 

COM 1,1 

LDA 3.CSP1 

AND 3,1 

AND 0,1, SZR 

JMP SE.l 

JMP GENRET 

LDA 1,C40 
ANO 0,1, SZR 
ISZ SEKER,2 
PSTAT 



ISET THE PROGRAM MODE 



FSELECT UNIT 
ICYL * 



ISEEKM 
ICOUNT SEEKS 

IDOUBLE PRES, 
IWAIT FOR INTERRUPT 
JTIMEOUTIII 

^INTERRUPT RETURN AC2«UNIT # 
IAC0 * STATUS 
IIMPROPER DONE STATUS 

1177677 



fNRQNG STATUS 

ISEEK ERR ?? 

fCOUNT SEEK ERRORS 



A 0041 

01 

02 

03 

04 

05 

06 

07 

00 

09 

10 

11 

12 

13 

14 

13 

18 

17 

18 

19 

20 

21 

22 

23 

24 

29 

26 

27 

28 

29 

30 

31 

32 

33 

34 

39 

36 



.MAIN 



fNRlTE SUBROUTINE 
fRETURN+3, NORMAL 
IRETURN*!, FATAL ERROR 



36 
39 
40 
41 
42 
43 



02307 

02310 

02311 

02312 

02313 

02314 

02315 

02316 

02317 

02320 

02321 

02322 

02323 

02324 

02325 

02326 

82327 

02330 

02331 

02332 

02333 
02334 

02335 
02336 
02337 
02340 
02341 
02342 
02343 
02344 
82345 
02346 
02347 
02390 
02351 
02382 
02353 



002326 
054274 

020776 

040307 
020176 

040164 
102000 
040271 
040272 
102400 
040163 
020252 
040396 
006331 
000000 
006335 
020174 
06U33 
006360 
002274 

181113 
000475 
024227 
107404 

000472 
024025 
107404 
000471 
061433 
024252 
125300 
034254 
167000 
125400 
125400 
106414 
000442 



WDATA+1 
.WRITE! 3TA 3,RWRET 

LDA 0,.WRITE*1 
3TA 0,RLUP 
LDA 0,C3 
STA 0,MODE 
ADC 0,0 
STA 0,AECNT 
STA 0,CWCNT 
SU8 0,0 
STA 0, FATAL 
LDA 0,3C 
STA 0,.SC 
GEN 
WDATAt 

SETP 

LDA 0,C400 

DOAS 0..DSKP 

INTWT 

JMP FRWRET 

MOVL* 0,0, SNC 
JMP RE.l 
LDA 1,CSP3 
ANO 0,1, SIR 
JMP RE.l 
LDA 1,C10 
AND 0,1, SZR 
JMP RE, 2 
DIB 0,,DSKP 
LDA 1,SC 
MOVS 1,1 
LDA 3,CA 
ADO 3,1 
INC 1,1 
INC 1,1 
SUB* 0,1, SZR 
JMP WE.l 



IRETRY ADDRESS 

ISET THE RETRY ADDRESS 

I3ET THE PROGRAM NODE 



ICLEAR FATAL FLAG 

I* SECTORS TO XFER 

»ADDR OF DATA GEN ROUT 
ISET PARAMETERS 

IWRITE 

IWAIT FOR INTERRUPT 

ITIMEOUT 

IINTERRUPT RETURN 
INO R/W DONE FLAG 
1077666 

IFATAL STATUS 



MODRESS ERROR 
FREAD MEM ADDR 
ISECTOR COUNT 
fWORD COUNT 
{STARTING ADDRESS 



IAOOR+WC SHOULO EQUAL 
JTHE ENDING ADDRESS 
IERROR 



A ( 


8042 


.MAIN 




01 








02 


02354 


020252 .Mil 


LDA 0,8C 


03 


02355 


040300 


STA 0,CSC 


04 


02356 


006355 


J8R PISCNT 


05 


02357 


101004 


MOV 0,0, 8ZR 


06 


02360 


000404 


JMP ,44 


07 


02361 


020171 


LDA 0,lS 


08 


02362 


124400 


NEG 1,1 


00 


02363 


124000 


COM 1,1 


10 


02364 


030157 


LDA 2, UNIT 


11 


02365 


035026 


LDA 3,UNTINS,2 


12 


02366 


125300 


MOVS 1,1 


13 


02367 


167000 


ADD 3,1 


14 


02370 


103120 


ADDZL 0,0 


IS 


02371 


103120 


AODZL 0,0 


10 


02372 


107000 


AOD 0,1 


17 


02373 


062433 


DIC 0,.DSKP 


18 


02374 


106414 


SUB* 0,1, SZR 


19 


02375 


000426 


JMP WE. 2 


20 








21 


02376 


020252 .W2I 


LDA 0,SC 


22 


02377 


101300 


MOVS 0,0 


23 


02400 


025075 


LDA 1,WD5W«4,2 


24 


024611 


107022 


ADDZ 0,1, SZC 


25 


02402 


011071 


ISZ WD3W,2 


28 


02403 


045075 


STA l,WDSW+4,2 


27 


02404 


020163 


LDA 0, FATAL 


28 


02405 


101004 


MOV 0,0, SZR 


29 


02406 


002274 


JMP PRWRET 


30 


02407 


020165 GENRETl 


LDA 0,LUPSW 


31 


02410 


101004 


MOV 0,0, SZR 


32 


02411 


002274 


JMP PRWRET 


33 


02412 


010274 


ISZ RWRET 


34 


02413 


010274 


ISZ RWRET 


35 


02414 


002274 


JMP PRWRET 


36 








37 


02415 


004547 WE, 11 


JSR SWCE 


38 


02416 


004512 


MSG57 


39 


02417 


030157 


LDA 2, UNIT 


49 


02420 


011151 


ISZ MI8C2 


41 


02421 


010163 


ISZ FATAL 


42 
43 

44 


02422 


000732 


JMP ,W1 


02423 


004541 ME, 21 


JSR SWCE 


45 


02424 


004622 


MSG67 


46 


02425 


030157 


LDA 2, UNIT 


47 


02426 


011151 


ISZ MISC,2 


48 


02427 


010163 


ISZ FATAL 


49 


02430 


000746 


JMP ,W2 



IFIND ENDING DISK 

f ADDRESS 

IAC0«SECT, AC1«MEAD 

IIP THE SECT ■ THE LAST 

IICR HEAD DID NOT OCCUR 

ISECT ■ LAST SECT 

IHEAO -1 



fFORM THE ENDING DISK 
UOORESS AS READ BY "DIC 



t SECT*4 

^EXPECTED ADDRESS 
JREAD ACTUAL 

FENDING DISK ADDRESS ERROR 

MOD WORDS WRITTEN 
HO TOTAL COUNT 

IDOUBLE PRECISION 



rWAS THERE A FATAL ERROR ? 

JERROR RETURN 

IIS THE LOOP SWITCH ON ? 

IERRQR RETRUN 



INORMAL RETURN 

IENOING MEM ADDR ERROR 
^IDENTIFIER 

fCQUNT AS MISC TYPE ERROR 
JSET FATAL FLAG 
)G0 ON 

FENDING DISK ADDR ERROR 



KOUNT AS MISC TYPE ERROR 
»SET FATAL FLAG 
»G0 ON 



A ( 
A 1 


9043 ', 


.MAIN 




02 


02431 


011151 at. it 


132 MI3C,2 


03 
04 
05 


02432 


002352 


PSTAT 


02433 


006353 RE, 21 


HEADER 


06 


02434 


006324 


PCRLF 


07 


02435 


006323 


MESSAGE 


08 


02436 


004361 


M3G29 


09 


02437 


030157 


IDA 2, UNIT 


10 


02440 


010271 


ISZ AECNT 


11 


02441 


000416 


JMP RE. 21 


12 


02442 


011121 


ISZ ADDER, 2 


13 


02443 


020270 RE. 201 


LDA 0,EVODN 


14 


02444 


101004 


MOV 0,0, 3ZR 


13 


02445 


002274 


JHP *RWR£T 


18 


02446 


006324 


PCRLP 


17 


02447 


006323 


MESSAGE 


18 


02450 


004552 


MSG63 


19 


02451 


020245 


LDA 0,RELRAN 


20 


02452 


0481243 


STA 0. RANDOM 


21 


02453 


102400 


SUB 0,0 


22 


02454 


040162 


STA 0, RETRY 


23 


02455 


062677 


IORST 


24 


02456 


002307 


JMP PRLUP 


29 








26 


02457 


011125 RE. 211 


ISZ PADER,2 


27 
28 

29 


02460 


002274 


JMP PRWRET 


02461 


060477 RE, 31 


READS 


30 


02462 


103120 


ADDZl 0,0 


31 


02463 


103122 


ADDZL 0,0, SZC 


32 


02464 


000405 


JMP ,*5 


33 


02465 


006353 


HEADER 


34 


02466 


006324 


PCRLF 


3S 


02467 


006323 


MESSAGE 


36 


02470 


004557 


MSG64 


37 


02471 


030157 


LDA 2, UNIT 


38 


02472 


010272 


ISZ CWCNT 


39 


02473 


000404 


JMP RE, 31 


40 


02474 


011111 


ISZ CWER,2 


41 


02475 


010162 


ISZ RETRY 


42 


02476 


000403 


JMP RE. 32 


43 


02477 


011115 RE. 311 


ISZ CWEPP,2 


44 


02500 


010163 


ISZ FATAL 


48 


02501 


020254 RE. 321 


LDA 0,CA 


46 


02502 


065433 


DIB 1,.DSKP 


47 


02503 


106400 


SUB 0,1 


48 


02504 


020221 


LDA 0,C174H 


49 


02505 


123705 


AND8 1,0, SNR 


50 


02506 


102520 


SUBZL 0,0 


51 


02507 


040306 


STA 0,.SC 


52 


02510 


000536 


JMP ,R1 



ICOUNT AS MISC TYPE ERROR 
IPRINT STATUS & ERR RETURN 

IAD0RES3 ERROR 



I "ADDRESS ERROR" 

IADDRESS ERROR COUNTER 

I2ND FAILURE IN A ROM 

IFIRST FAILURE 

IIF TWO COMPUTERS 

IDON'T TRY AGAIN 

I HEADS MAY HAVE MOVED 



ji'TRY AGAIN" 

IRESET RAN « GEN FOR 

ITHE RETRY 

ICLEAR RETRY SWITCH 

IDO IT AGAIN 

ICOUNT PERM AOOR ERPS 
IERROR RETURN 

KHECK WORD ERROR 

IIF SW3M DON'T PRINT 



l"CHECK WORD ERROR" 

ICHECK WORD ERR COUNTER 
I2ND ERROR IN A ROW 
IFIRST ERROR 
ISET RETRY FLAG 

ICOUNT PERM CHK WD ERRS 

ISET FATAL FLAG 

ITHE CHECK WORD ERROR MAY 

IHAVE STOPPED THE DATA 

ITRANSFER PREMATURELY. 

IFIND THE * OF SECTORS 

ITRANSFERRED AND SAVE IT 

IFOR THE DATA COMPARE ROUTINE, 

IIT MUST BE AT LEAST ONE. 



A 0044 .MAIN 
01 

02 02911 030157 RE, 4! 

03 02512 020272 

04 02513 010273 

05 02514 000422 

06 02515 010162 

07 02516 101404 

08 02517 000403 

09 02520 011131 

10 02521 000530 



LD* 2, UNIT 
LDA 0|CWCNT 
I3Z OACNT 
JMP RE. 44 
I3Z RETRY 
INC 0,0, SZR 
JMP RE, 41 
ISZ 0ATER,2 
JMP ,R2 



11 02522 024163 RE, 411 IDA 1, FATAL 

12 02523 125004 MOV 1,1, SZR 

13 02524 000405 JMP RE. 43 

14 02525 015111 OSZ CwER,2 

15 02526 000401 JMP .+1 
16 

17 02527 011135 RE. 421 ISZ CWDE,2 

18 02530 000521 JMP ,R2 

19 U2531 015115 RE. 431 OSZ CWERP,2 

20 02532 000401 JMP ,*1 

21 02533 102400 SUB 0,0 

22 02534 040163 STA 0, FATAL 

23 02535 000772 JMP RE. 42 

24 02536 024163 RE. 44! LOA 1, FATAL 
23 02537 125004 MOV 1,1, SZR 

26 02543 000403 JMP RE, 45 

27 02541 0U145 ISZ P0ER,2 

28 02542 000404 JMP RE. 46 

29 02543 015115 RE. 451 OSZ CWERP,2 

30 32544 000401 JMP .+1 

31 02545011141 ISZ CWDEP,2 

32 02546 010163 RE. 461 ISZ FATAL 

33 02547 000502 JMP ,R2 



IOATA ERROR 

IOATA ERROR COUNTER 

I2ND DATA ERROR 

ISET THE RETRY FLAG 

IFIR3T DATA ERROR 

IDATA AND CHECK WORD ERROR 

UNO CHK WD ERR 

JGO ON 



12 CHECK WORD ERRORS 
IONLY t CHECK WORO ERROR 
PSKIPS SOMETIMES 

ICOUNT CHK WD & DATA ERRS 

IGO ON 

IDON'T COUNT FATAL CHK WD ERR 

IRESET FATAL ERROR FOR NOW 

ITRY IT A 3RD TIME 
|FATAL«NON-ZERO IF 2 CHK WD ERR 

IOATA ft CHK WD ERR 
IDATA ERR ONLY 
I2ND ONE IS FATAL 
IDISCOUNT PERM CHK wD ERR 

ICOUNT PERM COMBO ERR 
ISET THE FATAL FLAG 
IGO ON 



a 1048 


.MAIN 










01 












08 08880 


004414 


RE 


.81 


J8R 8NCE 


lENOXNB MEM ADOR ERR 


03 08891 


004918 






M8087 


IXDENTZFXER 


04 08988 


030187 






IDA 8, UNIT 




09 08883 


011161 






ISZ MISC,2 




00 08884 


010103 






I8Z FATAi. 


fIT'S FATAL 


07 08889 

00 

09 08990 


000503 






JMF ,R3 




004400 


RE, 


,61 


JSR SWCE 


IENDING DISK ADDR ERROR 


10 08987 


004088 






M8067 


IXDENTZFXER 


11 08900 


030187 






LDA 2, UNIT 




18 08901 


011181 






I8Z MXSC2 


ICOUNT AS MX8C TYPE ERR 


13 08902 


010103 






I8Z FATAL 


IIT'S FATAL 


14 02903 

19 

10 


000838 






JHF ,R4 










ISA ♦ NC ERROR 




17 

16 

19 02904 








IAC0 R BAD, AC1 


■ GOOD 


064423 


SNCEl 


9TA 3,SWCRET 




20 02905 


039400 






LDA 3,0,3 


|GET ERROR IDENTIFIER 


21 02900 


094405 






8TA 3,SWCE1 




22 02907 


006316 






9AVAC 




23 02970 


006363 






HEAOER 




24 02971 


006324 






FCRLF 




29 02972 


006323 






MESSAGE 




29 02973 


000000 


SWCE 







27 02974 


006324 






PCRLF 




28 02979 


006323 






MESSAGE 




29 02970 


004464 






MSG51 


|»GOOD H 


30 02977 


024840 






LDA l,SAVt 




31 02000 


006381 






TYFAC1 




32 02001 


006383 






MESSAGE 




33 02002 


004467 






M8G52 


|»BAD« 


34 02003 


024237 






LDA i,SAV0 




39 02004 


006321 






TYFAC1 




30 080O9 


010402 






XSZ SHCRET 




37 08600 


008401 






JMF 98WCRET 




30 08007 


000000 


SNCRETl 








A 0046 

01 

08 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

13 

10 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

33 

36 

37 

36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 



.MAIN 



IREAO SUBROUTINE 
|RETURN*3, NORMAL 
|RETURN*1, FATAL ERROR 



02610 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02620 
02021 
02622 
02623 
02624 
02625 
02626 
02627 
02630 
02631 
02632 

02633 
1*2634 
(A2633 
02636 
02637 
02640 
02641 
02642 
02643 
(02644 
02643 

02646 
02647 
02650 

02651 
02652 
02653 
02654 
02655 
02666 
02657 



002625 

054274 .READI 

020776 

040307 

020023 

040164 

102000 

040271 

040272 

040273 

1024(90 

040162 

040163 

006334 R8R0I 

006335 

102400 

061133 

006360 

002274 

101113 
002501 
024224 
107404 
002476 
024025 
107404 
002474 
024024 
107404 
000614 

006332 ,R1I 
000000 RDATAI 
000641 



061433 
024306 
125300 
030254 
147000 
106414 
000671 



,R2I 



R8R0 
STA 3 
LDA 
STA 
LDA 
STA 
ADC 
STA 
STA 
STA 

sue 

STA 
STA 
CLRRB 
SETP 
SUB 
DOAS 
INTWT 
JMP f 



,RWRET 

,,READ-1 

»RLUP 

»C2 

,MODE 

#0 

,AECNT 

,CWCNT 

iDACNT 

i0 

,RETRY 

,PATAL 



|8 

0,.D5KP 

RWRET 



MOVL* 0,0, SNC 
JMP ilREl 
LDA i,CSP 
AND 0,1, SZR 
JMP »IRE1 
LDA t,C10 
AND 0,1, SZR 
JMP #IRE2 
LDA t,C4 
AND 0,1, SZR 
JMP RE. 3 

CHECK 



JMP RE. 4 

DIB 0,.DSKP 
LDA 1,.SC 
MOVS 1,1 
LD* 2,CA 
ADD 2,1 
SUB* 0,1, SZR 
JMP R|,5 



(RETRY ADDRESS 

ISET THE RETRY ADDRESS 

ISET PROGRAM MODE 

ISET RETRY COUNTERS 



ICLEAR RETRY AND 
IFATAL FLAGS. 
ICLEAR BUFFER 
ISET PARAMETERS 

JREAOM 

IWAIT FOR INTERRUPT 

ITIMEOUT 

IINTERRUPT RETURN 
|N0 R/W DONE FLAG 
1077662 



IFATAL STATUS 



IADDRESS ERROR 



ICHECK WORD ERROR 

IDATA COMPARE 

IADDR OF DATA GEN ROUTINE 

IDATA ERROR 

IREAO ENDING ADDRESS 
IP SECTORS XFERRED 
IP WORDS 

ISTARTXNG MEM ADDR 
ICORRECT ADDR 

IENDING MEM ADDR ERROR 



A 0047 .MAIN 



01 
02 
03 
04 
09 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
10 
17 
18 
19 
20 
21 
22 
23 
24 
29 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



02660 

02661 
02662 

02663 
02664 

02665 
02666 
02667 
02670 
02671 
02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
02703 
02704 
02705 
02706 
02707 
02710 
02711 
02712 
02713 
02714 

02715 
02716 
02717 
02720 
02721 
02722 
02723 
02724 
02725 
02726 
02727 
02730 
02731 
02732 
02733 
02734 

02735 
02736 



020306 
040300 
006359 

034306 
030252 
172414 

000406 
101004 
000404 
020171 

124400 
124000 
030157 
035026 
125300 
167000 
103120 
103120 
107000 
020306 
030252 
112400 
020201 
150400 
113400 
147000 
062433 
106414 
000642 

030157 
020306 
101300 
025105 
107022 
011101 
045105 
020163 
101004 
002274 
020162 
161005 
002403 
002401 
002443 
002407 

002431 
002433 



,R3I 



.R4I 



LDA 0, 
8TA 0, 
J8R PI 
LDA 3, 
LDA 2, 
SUB* 3 
JMP ,♦ 
MOV 0, 
JMP ,♦ 
LDA 0, 
NEG 1, 
COM 1, 
LDA 2, 
LDA 3, 
M0V8 1 
ADD 3, 
ADDZL 
ADD2L 
ADD 0, 
LDA 0, 
LDA 2, 
SUB 0, 
LDA 0, 
NEG 2, 
AND 0, 
ADD 2, 
DIC 0| 
SUB# 
JMP RE 



• 8C 

CSC 
SCNT 

• sc 
sc 

,2,SZR 

6 

0|SZR 

4 

LS 

1 

1 

UNIT 

UNTINS,2 

il 

1 

0,0 

0,0 

1 

• sc 
sc 

2 

C17 

2 

2 

1 

,D3KP 
,1,SZR 
.6 



IRE1I 
IRE2I 



LDA 2, UNIT 
LDA 0,,SC 
MOVS 0,0 
LDA l,WDSR+4,2 
AD02 0.1. SZC 
ISZ W0SR,2 
STA 1,WD8R*4,2 
LDA 0, FATAL 
MOV 0,0, SZR 
JMP PRWRET 
LDA 0, RETRY 
MOV 0,0, SNR 
JMP »,+3 
JMP #,♦! 
RE. 20 
GENRET 

RE.l 
RE. 2 



rPINO ENDING DISK ADOR 

IAC0I8ECT ACHHEAD 

IIP .SC NOT i SC A CHK WD ERR 

ITERMINATEO THE DATA XFER 

ICMK WD ERR 

flP SECT « NO HEAD ICR 

^OCCURRED AT THE END OF 

ITHE DATA TRANSFER 

ISECT ■ LAST SECTOR ON DISK 

IHEAD ■ HEAD-1 



IFORM THE DISK ADDR 
IWORO AS READ VIA "DIC" 

1 3ECT*4 

»* SECT XFERRED 

f# SECT SPECIFIED 

rAC2« # SECT NOT XFERRED 



IFINALLY AC0" EXPECTED 
IDISK ADDRESS 
IREAD ACTUAL 

rENDlNG DISK ADOR ERROR 

IADD WORDS READ TO TOTAL 

fDOUBLE PRECISION 



IENO OF TEST 

fUHAT TO DO NOW 

I (FATAL) ERROR RETURN 



»DO NORMAL RETURN 
ITRY AGAIN 



A 0048 

01 

32 

03 

04 

09 

06 

07 

08 

00 

10 

11 

12 

13 

14 

13 

18 

17 

18 

19 
20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 



.MAIN 



#**# 



GENERAL PURPOSE SUBROUTINES 



***** 



rGET CYLCMAYBE)-HEAD»8ECT0R»SECT0R COUNT 
I8ET CC)"1 ON RETURN IP CR TERMINATOR 



02737 

02740 

02741 

02742 

02743 

02744 

02745 

02746 

02747 

02750 

H2751 

02752 

02753 

02754 

02755 

02756 

02757 

02790 

02761 

02762 

02763 

02764 

02765 

02766 

02767 

02770 

02771 

02772 

02773 



054433 HSSI 

006326 

034255 

136415 

000424 

125003 

125004 

002345 

024170 

106437 

002357 

040253 

006326 

125003 

125004 

002346 

024171 

106437 

002357 

040251 

006326 

125004 

002345 

040252 

102560 HSS.lt 

040256 

002401 

000000 HSSRETI 

000000 HIAODI 



3TA 3,HSSRET 
GETATM 
LDA 3, SAM 
SUB* 1,3, SNR 
JMP HSS.l 
MOV 1,1, 8NC 
MOV 1,1, SIR 
JMP PIGCS 
LDA 1,LHD 
SUBZ* 0,1, 8BN 
JMP PIOUST 
STA 0,HD 
GETATM 
MOV 1,1, SNC 
MOV 1,1, SZR 
JMP PIGCS 
LDA 1,LS 
SUBZtt 0,1, SBN 
JMP PIQUST 
STA 0,SEC 
GETATM 
MOV 1,1, SZR 
JMP PIGCS 
STA 0,SC 
SUBCL 0*0 
STA 0,TERM 
JMP PHSSRET 






02774 
02775 
02776 
02777 

03000 
03001 
03002 
(83003 
03004 
03005 
03006 
03007 



060477 
101103 
063077 
062677 
060477 
101120 
103103 
175401 
102521 
102400 
040165 
001490 



• CSMI 



(GET "SAME", OR HEAO « 
IAC0«« AC1* NAME 

("SAME" 



(OTHER NAMES OR CR ILLEGAL 
fCHECK HEAD LIMIT 

(LIMIT EXCEDED 
IHEAO * 
IGET SECTOR # 
(AC0M AC1«NAME 

(NAME OR CR TERM ILLEGAL 
ICHECK SECT # LIMIT 

(LIMIT EXCEDED 

(SECTOR « 

(GET # OF SECTORS 

(NAME ILLEGAL 
}« OP SECTORS 



II/O ADDRESS MODIFICATION, HI END 



CHECK SWITCH REGISTER ON ERROR, 

IF SW0 * HALT 

IF SW2 ■ 1 DO RETURN *1 (SCOPE LOOP) 

IF SW2 • DO RETURN +2 



READS 
MOVL 0,0, SNC 
HALT 
IORST 
READS 
MOVZL 0»0 
ADDL 0,0, SNC 
INC 3,3,SKP 
SUBZL 0,0, SKP 
SUB 0,0 
STA 0,LUP8W 
JMP 0,3 

.EOT 



IHALT ON ERROR 

IREAD SWITCHES AGAIN IN CASE 
ITHEY WERE CHANGED. 

(NORMAL RETURN 
ISET LOOP SWITCH 



0049 
01 
02 
03 
04 
05 
06 
07 
00 
09 
10 
11 
12 



.MAIN 



I8EARCH ROUTINE 



13 
14 

15 

10 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 



03010 
03011 
03012 
03013 
03014 
03015 
03016 
03017 



031400 
021000 
101005 
001401 
122415 
001402 
151400 
000772 



SRHI 



03020 

03021 

03022 

03023 

03024 

03025 

03026 

03027 

03030 

03031 

03032 

03033 

03034 

03035 

03036 

03037 

03040 

03041 

03042 

03043 

03044 

03045 

03046 

03047 

03050 

03051 

03052 



03053 
03054 
03055 
03056 



152400 
020034 

113000 

151U2 

000405 

051000 

025000 

146405 

000772 

024212 

132400 

050266 

020247 

112400 

020222 

143414 

000413 

020220 

113700 

050267 

126400 

125140 

151224 

000776 

125300 

044305 

001400 



024201 

121400 
040267 
000772 



SMI 

3M.il 



3M.2I 



SM.3I 



SM.4I 



ICALL SEARCH 


AClcNAME 


» TABLE I 


tOOR. 


1 RETURN 


- NOT FOUND 


t RETURN 


- FOUND, AC2»P0INTER 


LDA 2,0,3 


IAC2«TABLE ADDRESS 


LDA 0,0,2 




MOV 0,0, SNR 




JMP 1,3 


»NOT FOUND 


SUB* 1,0, SNR 




JMP 2,3 


IFOUND 


INC 2,2 




JMP SRH+1 





ISIZE MEMORY, 4K SEGMENTS 



SUB 2,2 




LDA 0,C10K 




ADD 0,2 




MOVL» 2,2, SZC 




JMP SM.2 


I32K MACHINE 


STA 2,0,2 


ISTORE 


LDA 1,0,2 


IREAO BACK 


SUB 2,1,8NR 




JMP SM.l 




LDA 1,C177 




SUB 1,2 


IPRQTECT LOADERS 


STA 2,CMEND 




LDA 0,LA8T 




SUB 0,2 




LDA 0,C170K 


»HOW MANY SECTORS WILL MEM 


AND* 2,0, SZR 


IALLOW 


JMP SM.4 


IMAXIMUM, 20 OCTAL 


LDA 0,C7400 




ANDS 0,2 


»ROQM FOR 17 OR LESS 


STA 2,SMAX 


JMAX SECTOR COUNT 


SUB 1,1 




MOVOL 1,1 


IGENERATE * SECTORS 


MOVZR 2, 2, SZR 


I MASK 


JMP .-2 




MOVS 1,1 




STA 1,LMSK 




JMP 0,3 




LDA 1,C17 




INC 1,0 




STA 0,3MAX 


fMAX SECT CNT»20 


JMP SM.3 





A 8050 

01 

02 

03 

04 

05 

06 

07 

08 

00 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



.MAIN 



ILINE SCAN SUBROUTINE 
»BYTE POINTER 18 LINCT 



03057 020510 GA.0I 

03060 101005 

03061 000413 

03062 020250 

03063 040502 

03064 040502 

03065 000407 

03066 054474 GATMI 

03067 102400 

03070 040473 

03071 040473 

03072 040474 

03073 040474 

03074 030250 GA.lt 

03075 010250 

03076 151220 

03077 021000 

03100 024216 

03101 101002 

03102 101300 

03103 123400 

03104 024205 

03105 122415 

03106 000751 

03107 024206 

03110 122415 

03111 000746 

03112 024215 

03113 122415 

03114 000442 

03115 024451 

03116 125004 

03117 000434 

03120 030207 

03121 034210 

03122 162033 

03123 112032 

03124 000412 

03125 024177 

03126 123400 

03127 024435 

03130 127120 

03131 125120 

03132 123000 

03133 040431 

03134 010433 

03135 000737 



JCALL 
1 
1 
I 



GETATM 
RETURN 



LDA 0,FIND 
MOV 0,0 # 8NR 
JMP GA.l 
LOA 0, LINCT 
STA 0,SLNCT 
STA 0,8RCH 
JMP GA.l 

STA 3,GARET 
SUB 0,0 
STA 0,ANAM 
STA 0,ANUM 
STA 0,3RCH 
STA 0,FIND 
LDA 2, LINCT 
ISZ LINCT 
MOVZR 2,2 
LOA 0,0,2 
LDA 1,C377 
MOV 0,0, SZC 
MOVS 0,0 
AND 1,0 
LDA 1,C40 
3UB# 1,0, SNR 
JMP GA.0 
LDA 1,C54 
SUB* 1,0, SNR 
JMP GA.0 
LDA 1,C215 
SUB* 1,0, SNR 
JMP EXIT 
LDA 1,SRCH 
MOV 1,1, SZR 
JMP EX. I 
LDA 2,C60 
LDA 3,C67 
ADCZ* 3,0,SNC 
ADCZ* 0,2, SZC 
JMP ASSN 
LDA 1,C7 
AND 1,0 
LDA 1,ANUM 
ADDZL 1,1 
MOVZL 1#1 
ADO 1,0 
STA 0,ANUM 
ISZ FIND 
JMP GA.l 



AC0> * 

AClaNAME 

CC)«1 IP CR DELIMITER 



INO NAME OR # VET 

IREMEMBER LINCT 
ISET SEARCH FLAG 



|(AC0)R * BYTE 



ISPACE DELIMITER 



fCQMMA DELIMITER 



»CR DELIMITER 



ISEARCH FLAG ON 



INOT * 



IASSEMBLE OCTAL * 



IGET MORE 



* 0051 
01 



02 

03 

04 

05 

08 

07 

00 

09 

10 

11 

12 

13 

14 

15 

16 

17 

16 

19 

20 

21 

22 

23 

24 

25 

20 

27 

28 

29 



03136 
03137 
03140 

63141 
03142 
03143 
03144 
03146 
03146 
03147 
03150 
03151 
03152 

03153 
03154 
03155 
03156 
03157 
03160 
03161 

03162 
03163 
03164 
03165 
03166 
03167 



• MAIN 

024204 
123400 
024423 

030223 
133404 

000731 
127120 
127120 

126120 
123000 
040413 
010416 
000722 

020412 
040250 
101021 
101040 
020405 
024403 
002401 

000000 
000000 
000000 
000000 
000000 
000000 



A88NI 



EX, II 



CXITI 



CARETS 

ANAMI 

ANUMI 

SLNCTl 

SRCHt 

FINDI 



LDA 1.C37 
AND 1,0 
LDA 1,ANAM 
LDA 2,C176K 
AND 1,2,SZR 
JMP 8A.1 
ADDZL 1*1 
ADDZL 1,1 
MQVZL 1,1 
ADD 1,0 
8TA 0,ANAM 
I8Z FIND 
JHP GA.l 

LDA 0,3LNCT 
STA 0,LINCT 
MOVZ 0,0, SKP 
MOVO 0,0 
LDA 0,ANU« 
LDA 1,ANAM 
JMP 0GARET 











IA88EN6LE NAME 

13 LETTERS YET T 
IYE3, IGNORE THE REST 
15 LEFT 



IGET MORE 



ICLEAR CARRY 
I8ET CARRY 



a 0052 

01 

02 

03 

04 

05 

06 

07 

08 

00 

10 

11 

12 

13 

14 

15 

18 

17 

18 

19 

20 

21 

22 

23 

24 

25 

2« 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



,MAIN 



(PRINT HEADER 



03170 

03171 

03172 

03173 

03174 

03175 

03176 

03177 

43200 

03201 

03202 

03203 

03204 

03205 

03206 

03207 

03210 

03211 

03212 

03213 

03214 

03215 

03216 

03217 

03220 

03221 

03222 

03223 

03224 

03225 

03226 

03227 

03230 

03231 

03232 

03233 

03234 

03235 

03236 

03237 



010155 HEDI 

001400 

054440 

020440 

030164 

113000 

021000 

040404 

006324 

006324 

006323 

000000 HED.ll 

006323 

004447 

030157 

025051 

006322 

006323 

004452 

024253 

006322 

006323 

004455 

024251 

006322 

006323 

004460 

024252 

006322 

006323 

004240 

024157 

006322 

002401 

000000 HRETI 

003234 

004163 

004167 

004413 

004416 



H8W 
0,3 

3,HRET 



2, MODE 

0,2 
0*0,2 

0,HED.l 



X8Z 

JHP 

STA 

UDA 0,HRET*1 

LDA 

ADD 

LDA 

STA 

PCRIF 

PCRLF 

MESSAGE 



MESSAGE 

MSG44 

LDA 2, UNIT 

LDA 1,CYLT,2 

TYPZ1 

MESSAGE 

MSG45 

LDA 1,HD 

TYPZ1 

MESSAGE 

MSG46 

LDA l.SEC 

TYPZ1 

MESSAGE 

MSG47 

LDA 1,SC 

TYPZ1 

MESSAGE 

M8G17 

LDA 1,UNIT 

TYPZi 

JMP #HRET 



.♦1 

M8G2 

MSG3 

MSG32 

MSG33 



IPRINT HEADER ONLY ONCE 
IFOR EACH COMPLETE TEST 

ITHE MODE DETERMINES 
ITHE TYPE OF OPERATION 
UN PROGRESS 



f'RECAL OR SEEK, ETC, 
ICYL- 

IHEAO- 
ISECT- 
r#SECT- 



IUNITI 



10 RECAL 

M SEEK 

12 READ 

13 WRITE 



a 1093 

81 

02 

03 

04 

05 

06 

07 

06 

09 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

23 

26 

27 

28 

29 

30 

31 

32 

33 

34 

33 

36 

87 

38 

39 

40 

41 

42 

43 

44 

43 



.MAIN 



03240 
03241 
83242 
03243 

03244 
03243 
03240 
03247 
03290 
03291 
03292 
03293 
03294 
03299 
03296 
03297 
03260 
03261 
03262 
03263 
03264 
03269 
03266 



03267 
0327O 
03271 
03272 
03273 
03274 
03279 
03276 
03277 
03300 
03301 
03362 
03303 
03304 
03309 
03306 
03307 



102941 
102920 
040914 
0549U 
021400 
040912 
010906 
020261 
040264 
020254 
040020 
014020 
020306 
101300 
100400 
040901 
014476 
000446 
006479 
042620 
010474 
000779 
002466 



070477 
153120 
153122 
000432 
054462 
044468 
040465 
010460 
000405 
006363 
006324 
006323 
004301 
030462 
176120 
197036 
002446 



CI 
61 



SGI 



CKERI 



CKlt 



SUBOL 0,0, SKP 
8UBZL 0,0 
STA 0,FSTGC 
8TA 3,GRET 
IDA 0,0,3 
3TA 0,PATT 
Z8Z GRET 
LDA 0,VAR3T 
8TA 0,VARPT 
IDA 0,CA 
STA 0,10X0 
08Z 10X8 
LOA 0,,SC 
MOVS 0,0 
NEG 0,0 
STA 0,GWC 
08Z FSTGC 
JMP CC 
J8R 0PATT 
STA 0,PIDX0 
Z8Z GWC 
JMP GG 
JMP 0GRET 



READS 2 
ADDZL 2,2 
ADDZI. 2,2,SZC 
JMP CM 
STA 3,CKRET 
STA 1,BAD 
STA 0,GOOD 
Z8Z P8TGC 
JMP CKi 
HEADER 
PCRLF 
MESSAGE 
MSG22 

LDA 2, FSTGC 
ADCZL 3,3 
ADDZft 2,3,SEZ 
JMP iCKRET 



ICMECK DATA,,, 
^GENERATE DATA,,, 
fC(CA)*8TART ADDRESS 
ICCSC) "NUMBER OF SECTORS 
fWORD FOLLOWING THE CALL 
fDEFXNES THE PATTERN, 



fGEN/CHECK FIRST SWITCH 

IGENERATE DATA 
ISTORE IN MEMORY 



IIP 3W3M OONIT PRINT ERRORS 



PA ERROR DETECTED 



rOON'T Print header 
|"ADOR GOOO BAD WORD 
fETC, 



IEXIT IF»3 ERRORS^ 



A 0054 
01 



02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

23 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 



03310 
03311 
03312 
03313 
03314 
03315 
03316 

03317 
03320 
03321 
03322 
03323 

03324 

03325 
03326 

03327 
03330 
03331 
03332 
03333 
03334 
03335 
03336 
03337 
03340 
03341 
03342 
03343 
03344 
03345 
03346 
03347 
033501 
03351 

03352 
03353 

03354 
03355 
03356 
03357 
03360 
03361 
03362 



,MAXN 

006324 
024020 
006322 
024447 
006321 
024444 
006321 

020254 
024020 
106400 
006322 
002432 

010432 
000401 
001400 

006430 
026020 
106414 
004735 
010425 
000773 
010421 
000402 
000413 
060477 
103120 
103122 
002411 
006324 
024411 
006322 
006323 
004506 
002403 

010402 
002401 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



CK4| 



CCI 



ecu 



GRETl 

CKRETl 

FSTGCl 

PATTl 

GWCI 

BAD! 

G00DI 



PCRLF 

IDA 1,10X0 

TYPZ1 

LDA 1,600D 

TYPACt 

IDA 1,BAD 

TYPACl 

LDA 0,CA 
LDA 1,IDX0 
SUB 0,1 
TYPZ1 
JMP 0CKRET 

X6Z F8TGC 

JMP ,*i 
JMP 0,3 

JSR #PATT 

LDA 1,MDX0 

SUB# 0,1, 8ZR 

JSR CKER 

XSZ GMC 

JMP CC 

ISZ F8TGC 

JMP ,*2 

JMP CCI 

READS 

AODZL 0*0 

ADDZL 0»0»SZC 

JMP PGRET 

PCRLF 

LDA 1,PSTGC 

TYPZ1 

MESSAGE 

MSG56 

JMP PGRET 

ISZ GRET 
JMP PGRET 











fPRXNT ADDRESS 
fGOOO DATA 
fBAD DATA 



> WORD* 

fCOUNT ERRORS 

/RETURN 

/CHECK THE DATA 

ICHECK ERROR 

/ANY ERRORS T? 

/NOi EXIT 

I IF SW3M DON?T PRINT ERRORS 



/YES, PRINT THE 
/TOTAL # OF ERRORS 



/"ERRORS" 



/NORMAL RETURN ♦ 2 



03376 001000 VARETl 



a 00SS .MAIN 

m t 
v * 

02 
03 
04 03363 034413 

08 03364 010264 

06 03365 030264 

07 03366 034263 

08 03307 172016 

09 03370 000403 

10 03371 021000 
U 03372 002404 

12 03373 030261 

13 03374 050264 

14 03375 000767 
13 
16 
17 

18 
19 
20 
21 

22 03377 054431 

23 03400 050427 

24 03401 044425 

25 03402 020243 

26 03403 004410 

27 03404 034426 

28 03405 163000 

29 03406 040243 

30 03407 111100 

31 03410 030417 

32 03411 024415 

33 03412 002416 
34 

35 03413 024420 

36 03414 044415 

37 03415 105120 
36 03416 125120 

39 03417 014412 

40 03420 000776 

41 03421 107000 

42 03422 125120 

43 03423 125120 

44 03424 123000 
43 03425 001400 

46 03426 000000 

47 03427 000000 

48 03430 006000 

49 03431 000000 

50 03432 033031 

51 03433 000010 



RANI 



•UO60I 



.UD01I 
.UO02I 
,UO03S 
•UO10I 
.UD20I 
.UD21I 



fOPERATOR SPECIFIED WORDS 



VAR.0I 8TA 3, VARET 

182 VARRT 

LDA 2,VARPT 

UDA 3,VARSP 
ADC* 3,2fSNR 

JMR VAR.l 

UDA 0,0,2 

JMR PVARET 

VAR.lt IDA 2,VAR8T 

8TA 2,VARPT 

JMP VAR.0+1 



IEND INPUT 



IRANDOM NUMBER GENERATOR 



8TA 3 
8TA 2 

STA 1 
LDA 
J8R . 
LDA 3 
ADD 3 
STA 

MOVL 
LDA 2 

LDA 1 

JMP » 



,,UD03 
, t UD02 
,.UD0t 
, RANDOM 
UD50 
, .UD20 

»0 

, RANDOM 

0*2 

,.UD02 
,,UD01 
,UD03 



(GENERATE A RANDOM 



fNUMBER IN AC0 



ISTORE NEW VALUE, 



LDA i,.U021 

STA 1,.UD10 

MOVZL 0i 1 

MOVZL lii 

D8Z .UD10 

JMP ,«2 

ADD 0i 1 

MOVZL t#l 

MOVZL 1#1 

ADD 1,0 

JMP 0,3 









33031 

10 



IRANDOM CONTINUED 



A 0056 . 


MAIN 












01 






BINARY TO 


DECIMAL ASCII 


CONVERT 


02 






CONVERTS « 


DOUBLE PRECISION, TWO'S COMPLEMENT NUMBER 


03 
04 
05 
06 
07 






TO AN 


ASCII DECIMAL CHARACTER STRING 






INPUTl 


D IN AC1, 


AC2 (HIGH, LOW) 






OUTPUTI 


ASCII CHARACTER STRING, TERMINATED BY 


08 










NULL WQRO, 


i 


09 










CHARACTERS PASSED RIGHT ADJUSTED, 


10 










BIT 8 ■ 0, 


IN AC0 TO USER 


11 










ROUTINE WHOSE ADDRESS MUST BE 


12 
13 

14 










STORED 


IN 


LOCATION 41 OF PAGE 










STRING 


OF 


FORMI 


15 












♦NNNNNNNNNN(NULL) 


16 
17 

18 










OR 


•NNNNNNNNNN(NULL) 






1 CALLING SEQUENCE 






19 








J8R 


,DBD 






20 








RETURN 






21 
















22 






1 OESTROYEOI 


AC1, AC2, 


AC3, CARRY 


23 
24 

25 






\ UNCHANGED! 


AC0 






03434 


054456 


,DBDI 


STA 


3, a FD03 


1 


SAVE RETURN 


26 


03435 


040454 




STA 


0,,FD00 


I 


SAVE AC0 


27 


03436 


020502 




LDA 


0,.FD30 


1 


POINT TO HIGH ORDER POWER IN 


28 












1 


TABLE 


29 


03437 


040506 




STA 


0,.FD12 






30 


03440 


176400 




SUB 


3,3 






31 


03441 


054452 




STA 


3, DIGIT 






32 


03442 


044500 


.F099I 


STA 


1#.FD10 


t 


SAVE ABS(NUMBER) 


33 


03443 


050500 




STA 


2,.FO10*1 






34 


03444 


034447 




LDA 


3, DIGIT 






35 


03445 


175004 




MOV 


3,3,SZR 






36 


03446 


006041 




J8R 


P.FD40 


1 


PUT OUT SIGN OR DIGIT 


37 


03447 


024473 




LDA 


1,,FD10 


1 


RESTORE ABS(NUMBER) 


38 


03450 


030473 




LDA 


2,.FD10+1 






39 


03451 


020477 




LDA 


0,.FD22 


I 


GET OCTAL 57 


40 


03452 


040472 




STA 


0,.FD11 


1 


COUNT IT UP IN STORAGE 


41 


03453 


034472 




LDA 


3,.FD12 


1 


CURRENT POINTER TO POWER OF 


42 












1 


10 TABLE 


43 
















44 
















45 


03454 


021401 


,FD98| 


LDA 


0,1,3 


1 


LOW OROER WORD 


46 


03455 


101235 




MQVZR* 0,0, SNR 






47 


03456 


010435 




ISZ 


DIGIT 






48 


03457 


101005 




MOV 


0,0, SNR 


f 


TEST FOR END OF TABLE 


49 


03460 


000426 




JMP 


.FD97 


1 


OQNE 


50 


03461 


112420 




SUBZ 0,2 






51 


03462 


021400 




LDA 


0,0,3 


1 


HIGH ORDER WORD 


52 


03463 


101003 




MOV 


0,0, SNC 






S3 


03464 


106001 




ADC 


0,1, SKP 






54 


03465 


106400 




SUB 


0,1 






55 


03466 


010456 




ISZ 


.FOU 


1 


COUNT UP DIGIT 


56 


03467 


125113 




MOVL# 1,1, SNC 


1 


TEST FOR «0 


57 


03470 


000764 




JMP 


.FD9B 


1 


KEEP SUBTRACTING 



03471 
03472 
■3473 

03474 
03475 

03470 
03477 
03800 
03801 
03802 
03603 
03804 
03808 

03806 
03607 



a 0087 

01 

02 

03 

04 

08 

06 

07 

06 

09 

10 

11 

12 

13 

14 

18 

16 

17 

18 

19 

20 

21 

22 

23 

24 

28 

26 

27 

28 

29 

30 

31 

32 

33 

34 

38 

36 



.MAIN 

021401 
113022 
188400 

021400 
107000 
178400 
178400 
084448 
020443 
034207 
116414 
010407 
000736 

006323 
004313 



03810 002402 



03811 
03512 
03813 

03814 
03818 
03516 
03517 
03520 
03821 
03822 
03823 
03824 
03825 

03526 



38 03530 

39 03531 

40 03532 

41 03533 

42 03534 

43 03535 

44 03536 

45 03537 

46 03848 

47 03841 
48 

49 
50 

51 03544 

52 03545 
53 

54 03546 

85 03647 

86 03680 
87 



000000 
000000 
000000 

038632 

148000 
002766 
160400 
000230 
113200 
000017 
041100 
000001 
103240 
000012 
000000 

<* A m Amm 

000000 
001760 
000000 

000144 

000000 
000012 

000000 
000001 
003614 
000000 
000010 

000002 
000000 
000000 

000053 
000055 
000057 
000041 



LDA 0,1,3 
ADOZ 0,2,8ZC 

XNC 1,1 

LDA 0,0,3 

ADO 0,1 

XNC 3,3 

XNC 3,3 

8TA 3,,PD12 

IDA 0,.PDU 

LDA 3,C60 
SUB* 0,3,8ZR 

X8Z DX6XT 

JMP ,FD09 

•FD97I JSR fXMESS 

N8G23 



.PD0SI 



.FD30I 



JMP i.PD03 



,FD00i 
•FD03I 
OXGXTI 



•FD10I 
.PD11I 

.FD12I 



35632 

145000 
2765 
160400 
230 

113200 

17 

41100 

1 

103240 

.RDX 10 



I AAA* 

IVVVV 



1000 



100 

10 



1 

,FO05 



.RDX 

• BLK 2 








•FO20I 
.F021I 

.FD22I 87 
,7040-41 



I RESTORE POSITIVE VALUE 

I 8UMP AC3 TO NEXT TABLE ENTRY 
I GET DIGIT 

I PUT IT OUT 

l"TAB" 

I RETURN 

I SAVE AC0 
I SAVE RETURN 

I 10**9 

I 10**0 

I 10**7 

f 10**6 

J 10**5 

I 10**4 

f 10**3 

I 10**2 

I 10**1 

I 10**0 



I POINTER TO CONVERSION TABLE 
I END OF TABLE INDICATION 



f SAVE CURRENT DOUBLE WORD 

I COUNT UP DIGIT WORD 

I POINTER TO POWER OF TEN ENTRY 

f ASCII «♦« 

f ASCII "-» 

I ASCII "0" -1 

I PAGE PUT CHARACTER ADDRESS 



a 0058 

01 

02 

03 

04 

09 

06 

07 

09 

09 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



.MAIN 



03551 
03552 
03553 
03554 
03555 
03556 
03557 
03560 
03561 
03562 
03563 
03564 
03565 
03566 
03567 
03570 
03571 
03572 
03573 

03574 

03575 

03576 

03577 

03600 

03601 

03602 

03603 

03604 

03605 

03606 

03607 

03610 

03611 

03612 

03613 

03614 

03615 

03616 

03617 

0362ft 

03621 

03622 

03623 

03624 

03625 



054566 
070477 

153102 
001401 
010562 
031400 
024216 
021000 
125112 
123701 
123401 
151400 
124000 
004470 
000771 
063511 
000777 
060211 
002544 

102401 
020207 
030437 
000403 
030445 
102400 
054453 
074477 
177102 
002450 
040446 
050401 

000000 

010777 
034443 

020616 
151005 
000441 
034436 

102400 
146512 

0610405 
146400 
034207 
101400 
000773 



ITTO NON INTERRUPT PACKAGE 

I "MESS" PRINT* ASCII MESSAGES AS SPECIFIED BY ASSEMBLR 

»«CHAR» PRINTS ASCII CHARACTOR, C(8)R|C(0)L MUST BE 

Mill. RETURN *2 IF C(0)Ri0, CORRECTS THE PARITY, 33 SIMULATE 

|»TYPE" PRINTS C(0)R. MUST HAVE PROPER PARITY. RETURN IS 

ITO CALL*!. REPLACE THIS ROUTINE WITH INTERRUPT TYPE IF DESIRED 1 

|»CRLP" PRINTS A CARRIAGE RETURN 

|"POCT" PRINTS CCi) IN OCTAL FOLLOWED BY A TAB 

»"PDEC" PRINTS CCI) IN DECIMAL* LEADING ZEROS SUPPRESSED, 

fFOLLOWED BY A TAB, 

fPRINT A TEXT MESSAGE 



MESSI 



MES.ll 



8TA 3,MESSR 
READS 2 
ADOL 2,2,8ZC 
JMP 1,3 
I3Z ME8SR 
LDA 2,0,3 
LDA l,C377 
LDA 0,0,2 
MOVL* 1,1, SZC 
AN03 1,0, 8KP 
AND 1,0, SKP 
INC 2,2 
COM 1,1 
J5R CHAR, 
JMP MES.l 
SKPBZ TTO 
JMP .-1 
NIOC TTO 
JMP #ME33R 



ZOCTI SUB 0,0, SKP 

POCTI LDA 0,C60 

LDA 2,0CTAB 
JMP ,*3 

PDECI LDA 2,DECTB 
SUB 0,0 
9TA 3,RADRET 
READS 3 
ADDL 3, 3, SZC 
JMP #RADRET 
8TA 0,Z8UPP 
8TA 2,.*1 

OECOCTI 

I8Z .-1 
LDA 3,RADRET 
LDA 0,CHTAB 
MOV 2,2,SNR 
JMP CHAR, 
LDA 3,ZSUPP 
SUB 0,0 

OECOTI SUBL* 2,1, SZC 
JMP DECP 
SUB 2,1 
LDA 3.C60 
INC 0,0 
JMP DECOT 



INO PRINT IF SWH1 



ICC2) POINTS TO MESSAGE 
th 8 BIT MASK 
|C(2)*DATA WORD 



IC(0)"DATA CHARACTOR RIGHT 

I INC TO NEXT WORD 

IFLIP MASK 

JPRINT 

fANOTHER 



»LAST 

IPRINT CCI) IN OCTAL 

JPRINT CCI) IN DECIMAL 

JBOTH ENTRYS PRINT NUMBER 

JNO PRINT IF SWlil 

ITHEN TAB TO NEXT POSITION 

|A"LOA 2, TABLE" INSTRUCTION 

I3ETUP "TAB" AT END 

f IF TABLE ENTRYI0 
IEXIT WITH TAB 
IZEROS SUPPRESS STUF 

IFORM THE DIGIT 



a 0080 

fli 



08 

03 
04 
05 

06 
07 
00 
09 
10 
11 
10 
13 
14 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 



03626 
03627 
03630 
03631 
03632 
03633 
03634 



.MAIN 

151236 
034207 
064424 

163000 
175004 
004423 

000754 



03635 
03636 
03637 
03640 
03641 
03642 
03643 
03644 

03645 

03646 
03647 
03650 
03651 
03652 
03653 



03654 
03655 



030426 
100000 
010000 
001000 
000100 

000010 
000001 
000000 

030436 

000012 
023420 
001750 

000144 
000012 
000001 
000000 
000010 

000000 
000000 



DECRl MOVZR* 2,2, 8NR 

IDA 3,C60 

6TA 3,Z6URR 

ADO 3,0 

MOV 3,3,8ZR 

J8R CHAR. 

JMR DECOCT 



»C(0)»DISXT 
IMAKE A8CIZ 

IPRXNT 

IGET NEXT DIGIT 



0CTA8I 



DECT6S 
.ROX 10 



• RDX 6 

Z8URRI 
RADRETI 



IDA 2,.*i*.-0EC0CT 

100000 

10000 

1000 

100 

10 

1 



IDA 2,, ♦!♦. -DECOCT 

10000 

1000 

100 

10 

1 





a 0060 .MAIN 








01 

02 03656 054464 


CHAR.I 


8TA 3,CHRET 


IPRINT C(0) RX8HT 


03 03657 101325 




MOVZS 0,0, 3NR 


IRETURN *2 IF NULL 


04 03660 001401 




JMP 1,3 




05 03661 040452 




STA 0,CH8AV 




06 03662 176000 




ADC 3,3 


ICOMPUTE THE PARITY 


07 03663 117000 




ADO 0,3 




08 03664 163404 




AND 3,0,3ZR 




09 03665 000775 




JMP ,«3 




10 03666 176660 




SUBCR 3,3 


IC0M8IND PARITY WITI 


11 03667 020444 




LDA 0,CHSAV 




12 03670 163300 




ADDS 3,0 




13 

14 03671 034440 


CHAR1I 


LDA 3,CHTAB 


IIS THIS A TAB 


15 03672 116415 




8UB# 0,3,SNR 




16 03673 000407 




JMP ,*7 


IYES 


17 03674 094444 




J8R TYPE 


INO PRINT IT 


18 03675 000413 




JMP CHAR2+1 


IEXIT 


19 

20 03676 020436 




LDA 0,CHORZ 


^SIMULATE A TAB 


21 03677 034200 




LDA 3,C12 


IVIA 1 TO 10 SPACES 


22 03700 162426 




SUBZ 3,0,SEZ 




23 03701 000777 




JMP ,»1 




24 K3702 19)1005 




MOV 0,0, 3NR 




25 03703 000404 




JMP CHAR2 




26 03704 020431 




LDA 0,CH240 




27 03705 004433 




JSR TYPE 




28 03706 000770 




JMP ,-10 




29 03707 040425 


CHAR2I 


STA 0,CHORZ 




30 03710 063511 




3KPBZ TTO 




31 03711 000777 




JMP ,«1 




32 03712 060211 




NIOC TTO 




33 03713 002417 




JMP PCHRET 





a 1061 
01 



02 

03 

04 

09 

06 

07 

08 

09 

10 

11 

12 

13 

14 

IS 

16 

17 

16 

19 

20 

21 

22 

23 

24 

29 

26 

27 

28 

29 

30 

31 

32 

33 

34 

39 

36 

37 

38 

39 

40 

41 

42 

43 

44 

49 

46 

47 

48 



03714 
03718 
03716 
03717 
03720 
03721 
03722 
03723 
03724 
03729 
03726 
03727 
03730 

03731 
03732 

03733 
03734 

03739 
03736 

03737 
03740 
03741 
03742 
03743 
03744 
03749 
03746 
03747 
03790 
03791 



.MAIN 

094422 

060477 
103102 
000407 
020216 
004739 
020214 
004733 
020216 
004731 
102400 
040409 
002406 

000011 
000000 
000000 
000000 
000240 
000000 

000000 
0944U 
010773 
074477 
177112 
002409 
063911 
000777 
061111 
002401 
000000 



03792 
03793 
03794 
03799 



03796 
03797 
03760 
03761 



040237 
044240 
090241 
001400 



020237 
024240 

030241 
001400 



CRLFl STA 3,CRLFR 
READS 
AOOU 0*0, 8ZC 

JHP CRLFl 

IDA 0,C21S 

J8R CHAR, 

IDA 0,C212 

J8R CHAR, 

LDA 0,C377 

J8R CHAR, 

SUB 0,0 

STA 0,CHORZ 

JHP PCRLPR 

11 




240 





CRLF1I 



CHTABl 
CHRETl 
CHSAVl 
CHORZI 
CH240I 
CRLPRI 

HESSRI 
TYREI 



INO RRXNT IF SWlil 



IPRINT CARRIAGE AND LF 



fPRINT RUB 



JCLEAR HORZ POSISTION 
IEXIT 



STA 3,TYPRET 
I8Z CHORZ 

READS 3 
ADDL« 3,3, SZC 
JHP iTYPRET 
SKPBZ TTO 
JHP ,-1 
DOAS 0,TTO 
JHP PTYPRET 
TYPRETI 



rTYPE THE CC0JR IF 



IAC1H DON'T TYPE 



fSAVE AC0,1,2 
SACI STA 0,SAV0 
STA 1,SAV1 
STA 2,SAV2 
JHP 0,3 

IRE8T0RE AC0,1,2 
STACI LDA 0,SAV0 
LDA 1,SAV1 
LDA 2,SAV2 
JHP 0,3 



a 0062 . 

01 

02 

03 

04 

05 

06 

07 

06 

09 

10 

11 

12 03762 

13 03763 

14 03764 

15 03765 

16 03766 

17 03767 

18 03770 

19 03771 

20 03772 

21 03773 

22 03774 

23 03775 

24 03776 
23 03777 

26 04000 

27 04001 

28 04002 

29 04003 

30 04004 

31 04005 

32 04006 

33 04007 

34 04010 

35 04011 

36 04012 

37 04013 

38 04014 

39 04015 

40 04016 

41 04017 

42 04020 

43 04021 

44 04022 

45 04023 

46 04024 

47 04025 

48 04026 

49 04027 

50 04030 

51 04031 

52 04032 

53 04033 

54 04034 

55 04035 

56 04036 

57 04037 



MAIN 



054514 INPl 

023400 

040511 

040512 

060210 

020512 

040510 

063610 TTWAITI 

000777 

064610 

020216 

106415 

000442 

020200 

106414 

000403 

006324 

000766 

065111 

030472 

010471 

034215 

136405 

000456 

020212 

151223 INP.0I 

107401 

107701 

000403 

021000 

107000 

045000 

010456 

000402 

000435 

175004 

000743 

010447 

006324 ZNP.l I 

020444 

040250 

010443 

063511 

000777 

060211 

002437 



TELETYPE INPUT ROUTINE, NON INTERRUPT 

I 

ICALL INPUT 

| ADDR OP BYTE POINTER 

» RETURN m CR ONLY 

f RETURN - NORMAL 

IINPUT 18 STORED R-L IN 7 BIT ASCII 

IINPUT IS TERMINATED BY CR, (215) IS 

I8T0RED, LINE FEED ECMOS CR-LF 

INO DATA STORED, INPUT CONTINUES, 



8TA 3,INPRET 
LDA 0,*0,3 
STA 0,BASE 
STA 0,BPTR 
NIOC TTI 
LDA 0,M115, 
STA 0,CHCNT 
8KPDN TTI 
JMP ,»1 
DIAC t.TTI 
LDA 0,C377 
SUB* 0,1, SNR 
JMP RUB 
LDA 0,C12 
SUB* 0,1, SZR 
JMP ,*3 
PCRLP 

JMP TTWAIT 
DOAS l,TTO 
LDA 2,BPTR 
ISZ BPTR 
LDA 3,C215 
SUB 1,3, SNR 
JMP CRCOO 
LDA 0,C177 
MOVZR 2,2,SNC 
AND 0,1, SKP 
ANOS 0,1, SKP 
JMP ,*3 
LDA 0,0,2 
ADD 0,1 
STA 1,0,2 
ISZ CHCNT 
JMP ,*2 
JMP OVFL 
MOV 3, 3, SZR 
JMP TTWAIT 
ISZ INPRET 
PCRLF 

LDA 0,BASE 
STA 0,LINCT 
ISZ INPRET 
SKPBZ TTO 
JMP ,»1 
NIOC TTO 
JMP PINPRET 



IGET BYTE POINTER 



fWAIT FOR INPUT 
IREAD INPUT CHAR 

IRUB OUT 

ILINE FEED TYPED 
JECHO CHAR 

ICR CODE 

ICR TYPED 
17 BIT MASK 

ISTORE INTO RH 



ISTORE BYTE 

MC3«0 IF CR TYPED 
IALL DONE 



JWAIT FOR ECHO TO 

fFINlSH 

fCLEAR INTERRUPT 



A 1063 .MAIN 






et 






02 04040 080441 


RUBl 


LDA 9, MilS. 


03 04041 004437 




IDA 1,CHCNT 


04 04042 122409 




SUB 1,0, SNR 


08 04043 000726 




JMP TTWAIT 


06 04044 014433 




D8Z BPTR 


07 04048 014433 




D8Z CHCNT 


08 04046 030431 




LDA 2, BPTR 


09 04047 191220 




MOVZR 2,2 


10 04060 021000 




LDA 0,0,2 


11 04091 101003 




MOV 0,0, SNC 


12 04092 000409 




JMP RUBl 


13 04093 024216 




LDA 1.C377 


14 04094 107400 




AND 0,1 


19 04099 049000 




IT A. 1,0,2 


16 04096 101300 




MOVS'0,0" 


17 04097 061111 


RUBll 


DOAS 0,TTO 


16 04060 0007U 




JMR TTWAIT 


19 






20 04061 006324 


OVFLI 


PCRLF 


21 04062 006323 




MESSAGE 


22 04063 004271 




M3Q21 


23 04004 014413 




D8Z BPTR 


24 04069 014413 




DSZ CHCNT 


29 04066 000703 




JMP TTWAIT 


26 






27 04067 020406 


CRCODl 


LDA 0,BASE 


28 04070 112419 




SUB* 0,2,8NR 


29 04071 000737 




JMP INP.l 


30 04072 020216 




LDA 0,C377 


31 04073 176400 




SUB 3,3 


32 04074 000717 




JMP INP.0 


33 






34 04079 000000 


BA3EI 





39 04(376 000000 


INPRETI 





36 04077 000000 


BPTRI 





W fllil AM MAMMA* 


MUlllll a 


«■ 


0/ v^imnf win io ore 


wnuw l l 


» 


38 04101 177618 


MllS.t 


-118. 



INOTHING TO RUB 



I6ET BYTE 



I8AVE RH ONLY 

fECHO LH (RUBBED OUT) 
IECMO RUBBED CHAR 



ILXNE OVERFLOW 

r^INPUT OVERFLOW" 
IBACKUP BYTE POINTER 



IVES 



A 0064 , 


.MAIN 








01 






JDI8K COMMAND 


TABLE 


02 










03 04102 


044241 


OCT! 


044241 


>READ 


04 04103 


097111 




057111 


fWRITE 


09 04104 


046245 




046246 


ISEEK 


06 04106 


044243 




044243 


IRECALISRATE 


07 04106 


030797 




030757 


fLOOP 


08 04107 


010264 




010254 


IDELAY 


09 04U0 


000000 









in 










11 






^DISPATCHES 




12 










13 041U 


002127 


OCT. 11 


RE 




14 04112 


002143 




WT 




16 04113 


002196 




SK 




16 04U4 


002179 




RCt 




17 B4118 


002203 




LUP 




16 04116 


002210 




DLAY 




19 










20 






IDATA TA6LE 




21 










22 04117 


014632 


ONTI 


14632 


FLOATING ZERO 


23 04120 


014617 




14617 


IFLOATING ONE 


24 04121 


044056 




044056 


IRANOOM 


25 04122 


002617 




2617 


IALU l'S 


26 04123 


002632 




2632 


IALL ZEROS 


27 04124 


040064 




40064 


1110110 PAT 


28 04123 


000000 









29 










30 






^DISPATCHES 




31 










32 04126 


004147 


DNT.ll 


FLZ 




33 04127 


004142 




PU1 




34 04130 


003377 




RAN 




39 04131 


004135 




ONES 




36 04132 


004134 




ZEROS 




37 04133 


004140 




PAT1 





A ! 


1069 


.MAIN 




ei 








02 


04134 


101401 


ZER08I 


03 


04139 


102000 


0NE9I 


04 


04136 


001400 




09 








06 


04137 


199999 




07 


04140 


020777 


PATH 


00 


04141 


001400 




09 








10 


04142 


000036 


FLU 


11 


04143 


101229 




12 


04144 


101240 




13 


04149 


040036 




14 


04146 


001400 




18 








16 


04147 


020037 


FLZI 


17 


04160 


101243 




18 


04191 


102220 




10 


04192 


040037 




20 


04193 


001400 





8U6 0,0, SKR 
AOC 0,0 
JMF 0,3 

199999 
LOA 0,,.i 
JMP 0,3 

IDA 0,FLOi 
MOVZR 0,0, 8NR 
MOVOR 0,0 
3TA 0,FLO1 
JMR 0,3 

LDA 0,FLOZ 
MOVOR 0,0, 8NC 
AOCZR 0,0 
3TA 0,PlOZ 
JMP 0,3 



a 0066 
01 
08 
03 



,MAZN 



M861I 



fCNDXNG STATUS 

.TXTE JENOINO STATUS! 



04194 

04195 
04196 
04197 
04160 
04161 
04168 



04 
09 



04163 
04164 
04169 
04166 



047309 
144904 
043916 
091640 
040784 
098784 
000123 



148728 

040703 
004714 

000000 



M868I 



06 
07 



MS63I 



04167 
04170 
04171 



148923 
049709 
000011 



08 

09 



04172 
04173 
04174 

04173 
04176 
04177 

04200 
04201 
04202 
04203 
04204 
04205 



10 
11 



04206 
04207 
04210 
04211 



12 
13 



04212 
04213 

04214 
04213 
04216 
04217 
04220 



14 
15 



fRECAL 

.TXTE IRECAL I 



ISEEK 

.TXTE JSEEK I 



M3Q9I 



047311 
142724 

151322 
050125 
120324 
151306 
046717 
042240 
053305 
141711 
120308 
000000 



144904 
049923 

004411 
000011 



INTERRUPT FROM DEVICE 

.TXTE IINTERRUPT FROM OEVXCE I 



M9613I 



04881 
04882 
04223 

04224 

04228 
04226 

04227 



142923 
049709 
142640 
191322 
191317 
004923 
000011 



147724 

040724 
120314 
142923 

049709 
004923 
000011 



M8614I 



IDI8K 
.TXTE IDISK 



JSEEK ERRORS 
.TXTE ISEEK ERRORS 



MSGlSt 



ITOTAL SEEKS 

.TXTE ITOTAL SEEKS 



0067 .MAIN 



01 


1 NO READY UNITS 


02 H8G16I 
04230 147816 


.TXTE InO READY UNITS* 


04831 181840 




04838 040708 




04833 084804 




04834 088640 




04838 144816 




04836 081784 




04837 000000 




03 


fUNITl 


»4 M3C17I 


•TXTE IUNITI J 


04840 047126 




04841 188311 




04848 180078 




04843 000000 




08 


IDATAI 


06 M3G18I 


.TXTE IDATAI 1 


04844 040804 




04848 040784 




04846 180072 




04247 000000 




07 


fCOMMAND STRINGI 


06 M3G10I 


.TXTE ICOMMAND STRINGI J 


04880 147703 




04861 046818 




04888 047101 




04283 180104 




04884 188183 




04888 144722 




04286 043816 




04287 120072 




04260 000000 




09 


116 NUMBERS MAX, 


10 MSG20I 


.TXTE 116 NUMBERS MAX.l 


04261 033261 




»«kpk vmfvmv 




04263 046828 




04264 142602 




04266 081722 




04266 046640 




04267 184101 




04270 000086 




11 


IINRUT OVERFLOW 


12 M3G21I 


•TXTE IINPUT OVERFLOW! 


04271 047311 




04272 082820 




04273 120324 




04274 083317 




04278 181306 




04876 146306 




04877 183717 




04300 000O00 




13 


FADOR GOOD BAD WORD 


14 M8G88I 


.TXTE IADDR GOOD BAD 


04301 048101 




04308 181104 




04303 0434U 




04304 147717 





W0RD1 



0068 . 
04305 
04306 
04307 
04310 
04311 
04312 



01 
02 

03 
04 



05 
06 



MAIN 
004504 
040502 
004504 

147727 
042322 

000000 



04313 000011 



04314 
04315 
04316 
04317 
04320 
04321 
04322 
04323 



04324 
04325 
04326 
04327 

04330 
04331 
04332 



07 
06 



09 

10 



11 
12 



M8G23I 

MS625I 



04333 
04334 
04335 
04336 
04337 
04340 
04341 
04342 
04343 
04344 



04345 
04346 
04347 

04350 
04351 
04352 
04353 
04354 
04355 
04356 
04357 
04360 



04361 
04362 
04363 



f TA6 
.TXTE J 1 

IWORDS WRITTEN 
.TXTE IWORDS WRITTEN 



147727 

042322 
120123 
151327 
152311 
142724 
004516 
000011 



147727 

042322 
120123 

142722 

042101 

0044U 
000000 



044303 
141705 
120113 
147727 
042322 
142640 
151322 
151317 
004523 
000011 



142520 
046722 
141640 
142510 
045703 
153640 
151317 
120104 
151305 
147722 
051722 

000^11 



042101 

151104 
051705 



M8G26I 



IWORDS READ 
.TXTE IWOROS 



READ 



H8G27I 



ICHECK WORD ERRORS 
•TXTE ICHECK WORD ERRORS 



H8G26I 



IRERM CHECK WORD ERRORS 
.TXTE 1PERM CHECK WORD ERRORS 



MSG20I 



MDDRESS ERROR 
•TXTE IADDRESS ERROR 



01 

02 



0069 
04364 
04365 
04366 
04367 
04370 



03 

04 



09 
06 



07 
06 



09 
10 



04371 
04372 
04373 

04374 

04379 
04376 
04377 

0440B 
04401 
04402 
04403 



04404 
04409 
04406 
04407 
04410 
04411 
04412 



.MAIN 
120123 
191309 
147722 
004722 
000011 



142920 
046722 
040640 
042104 
142722 
091523 
142640 
191322 
191317 
0044U 
000000 



M8G30I 



fPERM ADDRESS ERROR 
.TXTE IPERM ADDRESS ERROR 



040904 
040724 
142640 
191322 
191317 
004923 

000011 



04413 
04414 
04419 



04416 
04417 

M J JAM 

vmmtn 
04421 



142722 

042101 
000011 



191327 
192311 

004709 

000000 



11 
12 



04422 

04423 
04424 
04429 
04426 
04427 
04430 
04431 
04432 
04433 
04434 



04439 

04436 
04437 
04440 



142919 
147919 
094722 
192240 
147717 
091640 
040919 
146314 
143240 
191317 
000240 



MS631I 



fOATA ERRORS 
.TXTE IDATA ERRORS 



MSG32! 



MSG33I 



IREAD 
.TXTE IREAO 



IWRITE 
.TXTE 1WRITE 



MSG39I 



IHEMORY TOO SMALL 

.TXTE 1MEMORY TOO SMALL FOR J 



13 

14 



142923 
192303 
191317 

000123 



M3G40I 



M8G41I 



^SECTORS 

.TXTE 13ECT0RS1 



IPASS 

.TXTE IPA3SI 



0070 , 
04441 
04442 
04443 



01 
02 



03 

04 



04444 
04445 
04446 



04447 
04450 

04451 



MAIN 
040520 
051523 
000000 



026640 
026477 

000000 



054703 
026714 
000000 



M3543I .TXTE I -?-l 



JCYL- 
MSC44I .TXTE ICYL-t 



05 
06 



07 
08 



04452 
04453 
04454 



04455 

04456 
04457 



142510 
042101 
000055 



FHEAD- 
HS645I .TXTE IHEAD-l 



09 
10 



11 
12 



142523 
152303 

000055 



I SECT- 
MSC46I .TXTE ISECT-J 



04460 
04461 
04462 
04463 



04464 
04465 
04466 



051643 
141705 
026724 

000000 



147507 
042317 

000240 



13 

14 



15 
16 



»#3ECT« 
MS647I .TXTE l#SECT-l 



16000 
MSG51I .TXTE IG00D 1 



1BAD 
MS652I .TXTE IBAD I 



04467 
04470 
04471 



04472 
04473 
04474 



17 
19 



19 

20 



04475 
04476 
04477 



040502 
120104 
000000 



042042 
141717 

000042 



042042 
041317 

000042 



»"DOC» 
M86531 .TXTE l"DOC M l 



|»00B» 
MSG54I .TXTE l»DOB«l 



(LOAD ERROR 
M3S55I .TXTE I LOAD ERROR! 



04500 
04501 
04602 
04503 
04504 
04505 



146240 
040717 
120104 
151305 
147722 
000322 



21 
22 



(ERRORS 
M8GS6I .TXTE 1ERRQRSI 



81 
02 



0071 

04806 
04507 
04010 
04611 



03 
04 



05 
06 



07 



09 
10 



11 
12 



04531 
04532 
04533 
04634 
04535 
04636 
04537 
04540 
04541 
04542 



04543 
04544 
04545 
04546 
04547 
04550 
04551 



04552 

04553 

04654 
04555 
04556 



04557 
04560 
04561 
04562 

04663 
04564 



.MAIN 
151305 
147722 
051722 

000000 



04612 
04513 
04514 

04515 
04516 
04517 
04520 
04521 
04522 
04523 
04624 



04525 
04526 

04527 
04530 



047306 
144804 
043616 
046640 
046705 
040640 
042104 
120322 
151305 
147722 
000322 



144724 

142515 
052717 

000324 



142620 
046722 
042240 

152101 
120101 
151305 
147722 

061722 
004411 
000000 



144515 
141523 
142640 
151322 
151317 
004523 

000011 



151324 
120131 
043501 
144501 
000116 



044303 
141705 
120113 
147727 
042322 
142640 



M8G57I 



IENDXN6 MEM AOOR ERROR 

.TXTE IENDING MEM AOOR ERROR! 



M8G59I 



M8661I 



ITIMEOUT 

.TXTE 1TIMEOUTI 



IPERM DATA ERR0R3 
.TXTE IPERM DATA ERRORS 



IMX8C ERRORS 



nOUSC I 



• l«lt 



I U«*« Ml M M m M m 



M8663I 



ITRY AGAIN 

.TXTE 1TRV AGAIN! 



M3G64I 



ICHECK WORD ERROR 

.TXTE ICHECK WORD ERROR! 



0072 . 
0496S 
04966 
04867 



01 
02 



04570 

04971 

04572 
04573 
04574 
04575 
04576 
04577 
04600 
04651 
04602 
04603 
04604 



03 

04 



04605 
04606 
04607 
04610 
04611 
04612 
04613 
04614 
04615 
04616 
04617 
04620 
04621 



05 
06 



07 

06 



MAIN 

151322 

151317 

000000 



M8G6SI 



044303 
141703 
120113 
147727 
042322 
123240 
042240 
132101 
120101 
151305 
147722 
051722 
000011 



142520 

046722 
141640 
045510 
153640 
120104 
120246 
040504 
040724 
142640 
151322 
004523 
000000 



04622 
04623 
04624 
04025 
04626 
04627 
04630 
04631 
04632 
04633 
04634 
04635 



04636 
04637 
04640 
04641 
04642 
04643 
04644 
04645 
04646 



JCHECK WORD I DATA ERROR 

.TXTE ICHECK WORD t DATA ERRORS 1 



HS666I 



fPERM CHK WD ft DATA ERRS 
,TXTE JPERM CHK WD ft DATA ERRS 



HS667I 



fENDXNG DISK ADDR ERROR 

•TXTE 1ENDING DISK ADDR ERROR! 



047305 
144504 
043516 
042240 
0517U 
120113 
042101 
15U04 
142640 
151322 
131317 

000000 



047311 
142724 
141722 
040510 
043516 
120305 
144504 
045523 
000000 



MS668I 



INTERCHANGE DISK 

.TXTE INTERCHANGE DISK! 



09 



ITYPE THE NUMBER OF DISK SURFACES 



01 



0073 .MAIN 



02 
03 



04 
05 



04647 
04650 
04651 
04652 

04653 
04654 
04655 
04656 

04657 
04660 
04661 
04662 

04663 
04664 
04665 
04666 
04667 



04670 
04671 
04672 

04673 
04674 
04675 
04676 
04677 



04700 
04701 
04702 
04703 
04704 
04705 



054724 
142520 
152240 
142510 
047240 
046525 
142502 
120322 
143317 
042240 
031711 
120113 
052523 
143322 
141501 
051705 
000240 



142724 

132123 
047311 
120107 
047125 

152311 
120240 
000000 



142623 
120324 
133523 
120264 
147706 
120322 



M8G69I .TXT! 1TYPE THE NUMBER OF DISK SURFACES 1 



N8G70 



06 

07 



vmfvv 
04707 
04710 
04711 
04712 
04713 
04714 
04715 
04716 
04717 
04720 
04721 
04722 
04723 
04724 
04725 



04726 
04727 

04730 
04731 

04732 



fTESTING UNIT 

.TXTE ITESTIN5 UNIT 1 



M8671I 



JSET 8*4 FOR INTERCHANGE, SN5 FOR READ ONLY 
•TXTE 1SET 3«4 FOR INTERCHANGE, 3N5 FOR READ 



ONL 



v*r mi 
142724 
141722 
040510 
043516 
126305 
051640 
032727 
143240 
151317 
131240 
040705 
120104 
047317 
054714 
000000 



152123 
144722 

142513 
040640 
054516 



H8G72I 



»8TRIKE ANY KEY TO CONTINUE 

,TXTE 1STRIKE ANY KEY TO CONTINUE! 



0874 , 


,MAZM 


04733 


048640 


04734 


064706 


04735 


152840 


04736 


120317 


04737 


147703 


04740 


152116 


04741 


047311 


04742 


142525 


04743 


000000 



a ears .main 








01 








02 000072 


UBUFFl 


.BLK 


58. 


03 000072 


CBUFFl 


.BLK 


58. 


04 000020 


VARI 


.BLK 


16. 


05 0S1S0 000000 


PRGENDI 







06 








07 








08 




.END 





